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SPECIAL NOTE 

To write an adventure program, you need 
to know a bit about the language BASIC. 
You can still have fun with this book, 
though, without knowing any BASIC, by 
typing in and playing the game Ha un ted 
House which was written specially for it. If 
you want to learn or improve your BASIC, 
there are two Usbome books to help you: 
Introduction to Computer Programming 
and Better BASIC, 















About this book 

Writing an adventure game from scratch is 
quite a daunting task, especially if you are 
new to computer programming. This book 
allows you to start as gently as you like by 
giving you an adventiure listing which you 
can type in and play, change and add to as 
much as you like, or use as a skeleton 
progrcun for your very own adventure story. 

The game written for this book is called 
Haunted House and you will find the main 
listing for it on pages 33-38. This will work 
on any computer which uses Microsoft- 
style BASIC, including Commodore 64, 

BBC, Dragon, Oric, TRS-80, Electron and 
expanded VIC 20, and has changes to make 
it work on a 48K Spectrum. A special ZX8 1 
version of the game is listed on pages 39-45. 
Turn straight to these pages if you want to 
play the game before you find out how it 
works. It is a specially good idea to do this if 
you’ve never played an adventure game. 



If you are used to looking at program 
listings, you will probably pick up a few 
clues about how the game works as you 
type it in. To avoid this, you could try to 
persuade someone else to type it in for you. 

As the program is so long and 
complicated, you will need to type it in 
extremely carefully. It is worth typing 
slowly and checking each line as you go, as 
Srou only need do it once. You can save the 
program on tape for when you want to play 
it again or produce an adapted version. 
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On pages 6- 15, you will find out how to 
plan an adventiure and on pages 16-27 how 
to structure and write the program for it. 

You may find this section quite difficult. 
Don’t worry if you do, just work through 
each bit slowly and carefully until you feel 
you have grasped the ideas in it, then go on 
to the next bit. 

As you work through these pages it is a 
good idea to write a practice game of your 
own, following each step carefully. Don’t 
worry if it isn’t a specially good game; it will 
help you to understand how the program 
works and see the problems you need to 
solve in order to write an adventure. A good 
adventure needs careful planning to make 
it interesting and exciting to play. 
Remember, you don’t need to touch your 
computer until you have planned your 
game down to the last detail. 

You will find some extra tips and hints on 
adventure writing on page 46, and on page 
47 there are answers to the puzzles set in the 
book. 

After playing /faun ted House a few 
times, you will probably want to make 
chcinges to it. Pages 28-3 1 give you some 
ideas for producing your own version. 

What are the rules? 

If you have played an adventure game 
before you will know what to expect 
from /faun fed /fouse. If you haven’t, all 
you need to know is that the computer 
will ask you what you want to do and you 
tell it, using not more than two words. 

It is a good idea to pick up anything on 
the way that looks valuable or useful and 
to try using these things in any way you 
can think of to solve the problems you 
encounter. Type SCORE to find out how 
many points you have and if you have 
^ won. 



What is an adventure game? 


An adventiire game is like a story in which 
the player is the hero. Unlike a book, where 
the sequence of events is fixed, an 
adventure game is different each time it is 
played because the player chooses what 
happens at each stage. By giving the 
computer instructions in response to 
descriptions which appear on the screen, 
the player goes on a dangerous journey into 
an unknown land. The aim is to survive 
whatever dangers may arise and return 
with treasures. 


The term “adventure” is now used to 
describe a wide range of different games. 
The game in this book is a traditional text 
adventure based on the Crowther & Woods 
type of game. The player takes the leading 
role in the story, but he is not given a set of 
attributes as in role-playing games. The 
player uses his own intelligence, cunning, 
and so on, not those of a character assigned 
to him at the beginning of the game. Like 
chess, traditional adventures are “mind” 
games, involving puzzle-solving rather than 
quick reactions or chance. 


The first adventure game was written in 
1976 on a mainframe computer at Stanford 
University in the U.S. A. by William 
Crowther and Don Woods. It is often 
referred to as Colossal Cave, Colossal or 
just Adventure, and a version of it is now 
available for most home computers. It was 
written in the scientific computer language, 
Fortran, which, unlike BASIC, cannot 
handle words. All the data for the game 
had to be indexed and stored on disc. 

The first people to play adventures were 
computer professionals, as home 
computers did not exist. A version of 
Crowther & Woods’ adventure is still 
included with most large business 
computer systems to show people who are 
not used to computers that they can be 
“friendly”. These disc-based adventures 
often occupy more than 250K and are very 
complicated to play. 

Micro adventures 

There have been many adventures since 
this first one. Perhaps the most famous are 
those written by Scott Adams, an American 
programmer who was the first to produce a 
version of Adventure for a small micro. This 
was Adventure Land for the TRS-80. Other 
Scott Adams’ advenhires to look out for are: 
Pirate Adventure, The Count and Pyramid 
of Doom. 


Graphics adventures 

The original adventure did not use any 
graphics, relying instead on the player’s 
imagination to conjure up the monsters and 
other terrors that make up the game. Some 
people think that a game with graphics is 
not a true adventure, though there are some 
very good graphics adventures now 
available for micros. If you have sufficient 
memory, you could add graphics routines 
to your adventures or to the Haunted House 
program in this book. This book does not 
explain how to do this because 
graphics instructions vary so much 
from computer to computer. 
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What kind of program is it? 

An adventure program is really a kind of 
database. A database is a computer filing 
system which stores information and 
allows it to be called up in a variety of 
different ways, and it Ccin have all kinds 
of serious uses. An adventure program is 
an “interactive” database. The player 
moves through it, altering or “updating” 
information as he does so. As you work 
through the book, you will see how 
particular words are used as “keys” to 
unlock certain items of information. This 
technique can be used to restrict access 
to certain information in a “serious” 
database. 

You can learn some useful 
programming techniques by writing an 
adventure. As the program is such a 
complicated one, it shows how important 
it is to plan it in detail before switching on 
your computer. It also makes you think of 
all the things a person using the program 
might try to do. If you work out a way of 
making the computer deal with any 
input, however silly, you will be able to 
write programs which don’t crash. 

Many of the adventures you can buy 
on cassette are written, at least partly, in 
machine code. This allows more 
information to be packed into the 
computer and makes the gaune nm 
faster. If you know a bit about machine 
code, you could experiment with adding 
machine code routines to your 
advenhures. 




PLANNING A GAME 


Where to start 


When you write an adventure game you are 
inventing a fantasy world where you make 
up all the rules. You decide where it is, what 
sort of creatiures and things hve there and 
what these creatures and things can and 
cannot do. Your world can be an ahen city, 
for instance, or an imderground palace 


book has 64 locations with short 
descriptions. 

A location can be indoors or out and 
could be a room, a cave, half way along a 
passage, an area of forest, the middle of a 
field, or anywhere else you like. It is best to 
decide on the number of locations early on 
and stick to it, as this affects the whole 
structure of the game. 


Making a map 


where elves, wizards and trolls live or a 
mysterious castle which is the home of 
dragons and other strange monsters. It^^^ 
could even be a time in the past involving . 
actual historical people and facts. 

Many adventures use magic of some 
kind. You can decide how closely your 
world sticks to the rules of the re^ world 


The next stage is to draw a rough sketch 
map of your world. It need not be accurate 
to the last detail but should show the overall 
scale. While you are doing this, think of 
some ideas for good hiding places for 
treasures and other objects that the 
adventurer will need. 

Here is a rough sketch map for the 
Haunted House adventure written for this 
_ book. 


and how much magic is allowed. Whatever 
you choose to do, try to make sure the rules 
are logical or players will find the game silly 
and frustrating. 

Having decided on a theme for your 
adventure world, you then need to decide 
on the point of your game. The player might 
have to escape, or return to a certain place, 
with treasures, or he might have to rescue 
someone, or find a secret place and do 
something there (such as defusing the Mad 
Scientist’s Evil Device for Blowing up the 
World). 


pockdoor 


40b. 


Kitchen 




Working out the locations 


\\Nwr 


^^0 

A 


Spiral 
staircase ^ 


Dork hall 


The areas or rooms through which the 
player moves during an adventure are 
called locations. Later in the book, you will 
see how these are numbered to put them in 
the computer. For the moment, you need to 
remember that the number of locations you 
can have depends on the amount of 
memory your computer has. More locations 
can make the game more interesting, but 
leave you less memory space for 
descriptions of them all. The game in this 
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Haunted House is set in a weird house 
standing on the edge of a sheer cliff. Its 
strange twisted turrets loom out of an 
always gloomy sky. No wall seems straight, 
no comer a right-angle. Not surprisingly no 
one lives there - well no human that is . . . 

People say the richest man in the world 
spent his last days there. Strangely, no one 
ever saw his body . . . 
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Ideas for themes 


If you’re stuck for an idea for your 
adventure game, think of films or TV 
programmes you have seen or books 
you have read. Remember, though, if you 
are writing a game to sell, you must not 
stick too closely to the plot or use the 
same names for copyright reasons. 

Here are some ideas for adventure 
themes. 

DETECTIVE STORY - the player is a 
detective investigating a terrible crime. 
The object of the game is to get back to 
police headquarters with all the 
evidence. (The items of evidence are the 
“treasures”.) 

PREHISTORIC ADVENTURE - the 
player has travelled through time to the 
days of cavemen. The object is to return 
to the present with The Stone, an object 
of immense power. The adventurer has 
to make his own weapons and anything 
else he needs, just as the cavemen do. 
Prehistoric beasts and cave magic are 
among the obstacles. 

TEMPLE TERROR - the ancient ruins of a 
temple built by a mysterious, long-lost 
race are reputed to contain the secret of 
eternal life. Just hearing about the things 
that are said to have happened there 
makes your hair stand on end. The object 
is to escape with the secret. 





PLANNINGAGAME 


Drawing a grid 


The first stage in turning your adventure 
world into a computer game is to transfer 
your sketch map to a squared up grid. You 
need one square for each location, so for its 
64 locations, the Ha un ted House game 
needs an 8 X 8 grid. 

This grid will become the master plan for 
your adventure, so make it as large and 
clear as possible. Eventually it will show edl 
the locations and the ways in and out of 
them, and all the treasures and objects used 
in the game. 

Number each location, starting in the top 
left-hand comer. Most computers start 
counting at zero, so use zero ais your first 
location number. 


Working out the routes 

Mark the exits from each location on your 
grid, like this. 

Notice that some locations on this grid 
have one-way routes, so the player cannot 
return the way he has come. Make sure 
there are reasons for these if you use them 
in your adventure, even if the reasons are 
magic. In Ha un ted House the front door 
slams and locks behind the player once he 
has entered, so he cannot go out again. The 
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You may want to change the position of 
walls and doorways when you work out the 
routes the player can take, so start by 
pencilling your map lightly onto the grid. 
Lcibel each location with a short 
description, eg “dark cellar” or “dusty 
room” and then think about the ways in and 
out of each location. The usual way of 
marking these is to use points of the 
compass - north being towards the top of 
the page, south down, east to the right and 
west to the left. 

By including staircases, ladders or 
trapdoors in your descriptions, you can use 
up and down for some of your routes 
instead of compass points. This makes the 
game more interesting without the need for 
a real 3D grid. 
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marsh at locations 53 and 54 is also a one- 
way route, because the boat gets stuck. 

How many one-way routes can you think of? 

When you have settled on your routes, ink 
in the walls and staircases to fit in with them 
and make a chart, like the one on the right, 
listing the location number, its description 
(this need not be your final version) and 
its exits. You will find this helps enormously 
when you start writing the program. 
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To help you see how the information fits into 
the program, you could complete this chart 
using the map on pages 14- 15 and check it 
against the liking on page 37. 



It is possible to construct real 3D 
adventures which are set on several 
levels like the storeys of a house. To do 
this you need two or more interlocking 
grids. Such games need a lot of memory 
(48K is probably the minimum to make it 
worthwhile) and can get very 
complicated to write. 
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PLANNINGAGAME 

Hiding the treasure 

Having mapped out your adventure world, 
you need to come back to thinking about 
what the player has to do in it. In many 
adventures, the player has to find valuable 
objects of some kind and take them 
somewhere. These could be “real” 
treasures, like gold and jewels, or they 
could be something like secret plans and 
dociunents, or items of evidence to help 
solve a crime. If the purpose of your game is 
to rescue someone, then coimt this as 
having one “treasure”. 



You can have general 
obstacles and traps in your 
game too; they don’t all have 
to be linked to a particular 
treasure. Ha un ted House 
has a marsh for instance. 


Adding ^^props'^ 

You need to decide what treasures to have 
and where to hide them. Hiding the 
treasiures will probably involve including 
some “props” in your plan. These are 
pieces of furniture, carpets, items of 
clothing and so on which the player can 
open or examine, but which cannot be 
t^en away from the location in which they 
are found. Haunted House has a coffin as 
one of its props. 


Some ideas to think about 

Can you think of some “treasures” to fit 
with these game settings? 

1. The headquarters of an international 
crime syndicate. 

2. A distant planet which is known to be 
more technologically advanced than 
Earth. 

3. A secret scientific research 
establishment. 

Now can you think of some good 
obstacles to getting them? 


Setting problems for the player 

Next you must think about the problems the 
player will have to solve in order to find and 
carry away the treasiures. The cleverer and 
more original the problems you invent for 
the player, the more interesting the game 
will be to play. The solutions to many of the 
problems will involve other objects which 
the player must find and then use in the right 
way. You will find out about “useful” objects 
over the page. 

Make a list of your valuable objects and 
number them, starting with 1 this time. (You 
will find out why on page 16.) List the 
objects in order of value as this will be 
useful later on for setting up the scoring 
system. This is the start of the list of words 
you want your computer to recognize. 

Make a note of the obstacles to getting 
each treasure too. You might have a 
monster guard, for example, or a mad axe- 
wielding troll. Treasures might be in locked 
drawers, or in safes. They may prove 
impossible to carry without a container of 
some kind which is hidden elsewhere. On 
the left are some puzzles you can think 
about. 
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5. Ancient scroll 
Guarded by bats. 


6. Bag of gold coins 

You need a light. 


7. Ebony statue 

You need a light. 


3. Book of magic 
spells 

Hidden in secret 
room behind false 
, waU. 


2. Diamond ring 

Hidden in 
coffin. 


8. Gold candlestick 


1. Oil painting 
Guarded by 
magical barrier 
and locked 
door. 


'Mark your “treasures” on your master plan, \ 
using the numbers assigned to them on yoiu: 
list. Then write the number of the location 
next to the object on your list too. (You can 
only have one object in each location.) 
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i goblet 

L Guarded by paralysing 
spirits and locked 
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Detective game puzzle 


In this game the valuable objects are: 

1. Single red hair 

2. Brown woollen thread 

3. Footprint 

4. Set of fingerprints 

5. Blood stain 

6. Heavy wooden stick 


3. The footprint is in a flower bed outside a 
window. 

4. The fingerprints are on the surface of a 
large table next to the body. They are 
invisible. 

5. The blood stain is on the carpet. 



The obstacles to getting these are: 

1 . The hair will get damaged or lost if you 
take it as it is. It is on the sleeve of a coat. 

2. The thread, invisible to the naked eye, is 
on the inside edge of a locked drawer. 


6. Touching the stick will destroy any prints 
which might be on it. 

What solutions can you think of? There are 
some suggestions on page 47, though yoiurs 
might be better. 
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PLANNING A GAME 

Useful objects. . . 

To help the player solve the problems you set, you will have to include some tools, 
weapons and other useful objects in the game. The player must find the appropriate 
objects and use them in the right way to get roimd the obstacles. You can test the 
player’s ingenuity by not including the most obvious objects. Instead of a key, for 
example, you could include a hairpin or paperclip for opening a locked door. You can 
make things more difficult, too, by hiding, say, a torch in one place and the batteries for it 
in another. The player must find both before he can use them. 

Add your objects to the word list you started for your treasures. Don’t forget that some 
of your treasures can have uses too. (You don’t need to list them twice.) 


Haunted House problems and solutions 

Here are the solutions to the Haunted House game problems 
cind the objects needed for them. 

Problem Solution Objects needed 



Too dark to see 


Put candle in candlestick 
Light candle with match 




Bats 

Secret room 
Locked door 
Paralysing ghosts 


Spray with “Baticide” 

Break down false wall 
Unlock 

Suck up with vacuum cleaner 


Magical barrier 
Marsh 


Use magic spell 


Barred window 
Coffin 


Get across in boat 
(Can only be used once as 
it gets stuck in mud) 

Dig round edge to remove bars 
Open lid 


Candle (hidden in desk drawer) 
Matches 

Candlestick (already in 
valuable objects list) 

Aerosol can 

Axe 

Key 

Portable vacuum cleaner 
Batteries 

Book of magic spells (already 
in valuable objects list) 

Boat 


Shovel 

Nothing 


icide where the objects are to go and 
k them on your master plan. They will 
less conspicuous if you put them in 
laces where people would expect to find 
em, e.g. knUe in the kitchen, book in the 
dy or libraiy, axe near the woodpile. Youi 
ight want td add extra props (see previoiis 
age) at thisjstage. Haunted House has a 
esk in whigh the candle is hidden, 
emember^ot to put your objects in 
possible places. It is no good putting the 
light behin<i a locked door and then putting 
the key in a dark room. 

Put the munber of the location next to 
each object. Add to yoiu: list any other 
words (not verbs) that you will want the 
computer to imderstand, too e.g. north, 
south, ghosts, bats, coffin. (Remember to 
include all your props.) 


bject //St 


Haunted House 
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. . . and what can be done with them 


Now you have decided on the objects to go 
in your game, what are you going to let the 
player do with them? You need to make a 
list of verbs and the things they apply to. 

This should include “going” verbs too, so 
that players can give instructions about 
where they want to move to. 

Many adventure programs are 
constructed so that the computer accepts 
commands of not more than two words from 
the player. It checks the first word against a 
list of verbs you have put in its memory and 
the second against the object and direction 
words you have given it. A lot of the fun in 
writing adventiures is trying to think of all 


the combinations of verbs and objects that 
the player might try and deciding on what 
action or reply the computer should give. 
Writers of business programs need to think 
in this way too, to prevent their programs 
crashing because of an unexpected 
response from the user. 

To deal with verbs (and objects) which ^ 
the computer cannot find in its memory, 
you can include general replies, such as 
“Do what with the (object)?”. Group 
together verbs which mean the same 
thing, such as get and take. You will be 
able to save memory space by sending 
the computer to the same routine for both. 


4 ^ 




Haunted Houseverb list 

Number your verbs starting with 1. (The 

useful to add shortened forms of GO 

computer uses zero for “verb not foxmd”. 

NORTH etc, (see verb numbers 4-9 in the 

as you will see on page 16.) HELP and 

chart). These reduce the amount of 

INVENTORY (or CARRYING?) are 

typing the player has to do and make the 

standard adventure game features so 
include them in the verb list. It is also 

game faster to play. 

Verb 

1 number 

Verb 

Applies to 

Action (conditions, if any, in brackets) 

1 0 





Used to indicate “verb not found” 

1 1 

HELP 

— 

Lists all verbs the computer knows 

2 

CARRYING? 

— 

Lists all the objects player is carrying 

3 

GO 

DIRECTIONS 

Moves position 

4 

N 

— 

Shortened form for “GO NORTH” 1 

5 

S 



Shortened form for “GO SOUTH” f 

6 

W 



Shortened form for “GO WEST” 1 

7 

E 



Shortened form for “GO EAST” 1 

8 

U 



Shortened form for “GO UP” | 

9 

D 



Shortened form for “GO DOWN” | 

10 

GET 

OBJECTS 

Pick up object and take it with you r 

(Object must be in the location) | 

11 

TAKE 

OBJECTS 

Same as GET I 

12 

EXAMINE 

ANYTHING 

Reveals any concealed object 1 

13 

OPEN 

DOOR, DESK 

Opens door or drawer (must have key for door) 1 

14 

READ 

BOOKS, SPELL 

Displays written clues (must have book of spells 1 
or be in library) 1 

15 

SAY 

ANY WORDS 

Says words typed “out loud”, e.g. casts spell 1 

16 

DIG 

— 

Makes a hole (must have shovel and be in cellar) 

17 

SWING 

AXE 

Breaks down false wall (must have axe and be 
in study) 

18 

CLIMB 

ROPE 

Go up or down rope 

19 

LIGHT 

CANDLE 

Turns light on (must have candle, matches and 
candlestick) 

20 

UNLIGHT 

CANDLE 

Turns light off (must be carrying lighted candle ) 

21 

SPRAY 

AEROSOL 

Removes bats from rear tower (must have 
aerosol) 

22 

USE 

VACUUM 

Sucks up ghosts (must have vacuum and 
batteries) 

23 

UNLOCK 

KEY, DOOR 

Opens door (must have key) 

24 

LEAVE 

ANY WORDS 

Leave object behind (must have object) 

25 

SCORE 


Prints out score 
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PLANNING AGAME 

The master plan 

Your master plan and the lists you have 
made contain all the information, or data, 
needed for your prograim. Here is the 
completed master plan lor Haunted 
House. (Don’t worry if your master plan 
doesn’t look as elaborate as this.) Over the 
page, you will find out how to put this data 
in your computer. Before you touch your 
computer, though, make sure you have 
planned out your game to the last detail. 
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Adventure brain teasers 

Here are some situations players might 
perhaps find themselves in during an 
adventure. See how many solutions you 
can think of for each one. There are 
some suggestions on page 47. 

1. You are trapped in a room about 
three metres square. There are no 
doors. There is a thick carpet. 

2. As you enter a room, a feeling of 
extreme drowsiness comes over you. 
You are carrying a small, but quite 
heavy, rucksack and a handkerchief. 

3. You are standing on the battlements 
of a castle. Beneath you is a horde of 
angry slaves and behind you armed 
soldiers. You have a parchment scroll 
in your hand. 

4. You have been invited to dinner by 
the evil arch- villain. He has taken away 
all your weapons. As dessert is served, 
he shows you the remote control for his 
world decimator weapon. 


DARK 

CORNER 


1 

OVERGROWN 

GARDEN 


◄w 



£► by 

WOODPILE 


Can you think of 
some more \ 

adventure brain | 

teasers (and I 

solutions for them / 
of course)? A 



TWISTED 

RAILINGS 


PATH 




PATH BY 
RAILINGS 

-4W E^ 






WDown 
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FOREST 
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N 

CLEARING 


◄w PATH 
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ROOM STAIRCASE 
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VAULTED 

HALL 

£► 

◄W 


WIDE 

PASSAGE 


28 

'Statue 

HALL' WITH 
LOCKEDDOOR 


2 IB SLIPPERY 22 1 
STEPS 
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CELLAR 
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SECRET 
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STEEP 
MARBLE 
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False 
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in 

drawer/ 
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SLOPING 

CORRIDOR 


COBWEBBY 

ROOM 


ONEWAY — 

^ CHAMBER 

s 


▼ 


N 52 

1 53^ 

UPPER 



GALLERY 

Paralysing! 
ghosts 


DINING 

ROOM 


45 SPOOKY 46 1 
ROOM 

GOLD Painting 


MARSH 
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■SOGGY 

PATH 

I : 


◄w 
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Aerosol can 

£► 


FALLEN 

BRICKWORK 
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◄ w 


E ► 4W 


STONE 

ARCH 


eW 4W 


crumbling: 

CLIFFTOP 






STORING THE DATA 


You now have all the data for your 
adventure written out on pieces of paper. 
The next problem is to work out how to put 
it into the computer’s memory. 

The computer needs the data stored in 
such a way that it can get at each item 
quickly and update things as the player 
progresses through the game. To do this, 
you set up storage areas called “arrays” in 
the computer’s memory. An array is like a 
set of pigeon holes or filing boxes. You 
give each array a name and each box in it a 
number, so the computer can find the box 
you want when you refer to it in your 
program. 

^ This is on 


array called A 


The $ sign indicates that this is 
a string array, that is, one for 
storing letters and words. 


This array is set up m the 
program by writing 
DIMD$(63). 


2. An array to hold the information about the 
routes the player can take from one location 
to another. This is R$( ). It needs to be the 
same size and numbered in the same way as 
D$( ). 

3. An array for the objects and other words 
on the word list. By dimensioning this DIM 
0$(W), where W is the number of words on 
your list, the computer will set up an array 
with one space for each word and an extra 
space. This is because it always starts 
numbering with zero and ends with the 
number in the DIM statement. This is useful, 
because the zero space can be used for 
“word not found in memory”. 

e.g. If W=4, the array would look like this. 
DIM 0$(4) gives five spaces labelled 0 
to 4. 


Before you can give the computer any 
data, you must decide how big each array 
should be and tell the computer to reserve 
and label that much space. This is called 
“dimensioning” the array and is written 
DIM in BASIC. 

The arrays for Haunted House 

Haunted House needs the following arrays 
to hold its data. You will need similar arrays 
whatever the theme of your adventure. 

1. An array to hold the descriptions of the 
locations. It needs 64 pigeon holes (one for 
each location). We’ve called it D$( ) and 
numbered the holes 0 to 63 as on the master 
16 plan. 



Using variable names, 
such as W eind V, makes 
it easier to change the 
number of words and 
verbs at a later stage. 


4. A verb array. This needs a space for each 
verb and am extra space for “verb not 
found”. It is called V$( ) and needs to be 
dimensioned DIM V$( V) where V is the 
number of verbs on your list. 

More arrays 

Locations, routes, object words and verbs 
are not the only information that needs to be 
stored in the computer. You also need 
arrays to store information about where the 
objects are, which objects the player is 
carrying and such things as whether the 
light is on or off. 

There is no need to store the object and 
location words again. This extra information 
can be stored as numbers to save space, 
e.g. object 9 is in location 10. 

Array L( ) shows which location each 
object is in. It only needs spaces for the 
“gettable” objects such as the key, not the 
props or other words. If G is the number of 
gettable objects then this array is 
dimensioned DIM L(G). 

Array C( ) is for information cd)out which 
objects the player is carrying. This also 
needs spaces only for the gettable objects, 
so is dimensioned DIM C(G). 



Flags 

As well as keeping track of the things the 
player is carrying, the computer needs to 
be able to record other changes that 
happen during the game, e.g. whether the 
candle is alight, the door locked or the key 
visible. 

This can be done by using an array, F( ), 
of markers or “flags”, which contains W 
spaces, i.e. one for each object word. By 
putting Is and Os in these spaces, the 


computer can see what state the object is in. 
0 is used for the “normed” or “inactive” state, 
such as light off, object visible. 1 shows the 
“active” or “not normal” state, such as light 
on and object invisible. 




/^^d you know that computers 
have flag registers in their 
CPUs which work like this flag 
array? They use them to store 
information about what is 
happening while a progreim is 
running. 



Why not use 2D arrays? 

If you have come across arrays before, 
you may have wondered why single 
dimension arrays are used for the 
Haunted House descriptions and routes 
instead of two-dimensional arrays, 
which would look like this: 


M) 


0 


300120 
00 




The reason is that single dimension 
arrays use slightly less memory space. 
You could use 2D curays if you wanted to, 
in which case you would dimension them 
DIM D$(8,8) and DIM R$(8,8). 
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STORING THE DATA 

Putting the data into the arrays Data for the flags 


Having set up labelled storage areas in the 
computer’s memory, you need to tell it what 
to put in them. One way of doing this is to list 
the data, in order, and tell the computer to 
loop round putting one item at a time in the 
spaces in an array. * Here is how this is 
written in BASIC: 


The data for the flag array, F( ), consists 
only of Is and zeros. Objects which are 
invisible at the start of the game have 1 in 
their box in F( ). When they aire discovered 
by the player the flag changes to zero. All 
the other objects start with zero. 


DIM 0$(U) 

DATA PAINTING, RING, MAGIC SPELLS, GOBLET, ETC. 
FOR 1=1 TO W 
READ 0$(I) 

NEXT I 



First time round, 1= 1, so 
PAINTING is put in 
0$( 1). Computer goes 
back for the next value of 
I and puts the next item, 
RING, in 0$(2) and so on. 


Loop starts with 1 for 
object, verb and the 
three number arrays, so 
computer leaves space 
zero empty. For location 
and route arrays, loop 
starts at zero. 



\ \ Commas separate 
I ^ items of data. 

This is the loop for RE ADing the DATA into 
0$( ). Look at lines 1600 to 2 100 in the 
program listing on pages 36 and 37 and see 
if you can pick out the data loops for the 
other arrays. 




You only need to tell the computer which 
boxes in F( ) need Is in them. Leaving the 
rest empty is the same as filling them with 
zeros. The easiest way to fill this array is as 
shown in line 2090 (on page 37). 

You may have noticed that some spaces 
inF( ) are not used because some objects 
do not change their “state”. These spare 
flags can be used for other things. For 
instance, in Ha unfed House, F(14) (the rope 
flag) is used to show whether the player is 
up the tree. The candle needs two flags - 
one to show if it is visible and another to 
show if it is lit. The spare flag F(0) is used for 
lighting it. If you want a spare flag for 
something, use the ones for words that 
won’t need them, like “north”. 

Data for the carrying array 

The player isn’t carrying anything at the 
beginning of the gaune, so to show this the 
array C( ) is left empty. When an object is 
picked up the computer puts a 1 into its box. 
So, no data lines are needed for array C( ). 

Initialization 


Setting up the arrays and filling them with 
data is c^ed “initialization”. Y ou can see 
in the next section where this fits into the 
program structure. 
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The ZX8I (Timex 1 000) does not do this, see page 39. 



WRITING THE PROGRAM 


The program structure 


In order to arrive at the overall structure of 
the adventure program, you need to think 
about the jobs the computer has to do 
during the game. 


exits additional 

3 Print g ^ instructions 



The structure of the program actually looks 
like this. As you can see, the biggest part of 
it is the subroutine section. There needs to 
be one subroutine for each verb used in the 
game. You will find out more about these on 
page 25. 


,issssu«”” 

■ instructed 
3 Go bocKto^- 


RUN 


DESCRIPTION & 

FEEDBACK 

MESSAGES 


{/ 


Cl 




INPUT& 

INPUT ANALYSIS 




SET UP ERROR 
MESSAGES & 

OVERRIDE CONDITIONS 




.V 


BRANCH TO 
SUBROUTINES 



SETUP ,1 

OTHER MESS 


The list above shows the order in which the 
computer needs to do things, but not 
necessarily the order in which they need 
appear in the program. A large chunk of the 
program is the initialization routine which is 
only needed once each game, and, 
although it is the first thing the computer 
must do, it is a good idea to put it at the end 
of the program. This is because every time 
the computer is told to GOTO or GOSUB it 
goes back to the beginning of the program 
and checks through each line number until 
it finds the one it wants. This can take a 
noticeable amount of time in a long 
program. By putting initialization at the end, 
the computer does not have to check 
through it each time the player makes a 
move. 


► VERBl 


^ VERB2 



VERBS 


VERB 4 
VERBV 


INITIALIZATION 


■^9 



WRITING THE PROGRAM 

Getting into the program 

Now you have an overadl idea of what the program will be like, you can start thinking about 
each part in more detail. You have already seen on pages 16 to 18 how the initialization 
section works. The next eight pages describe how the other main parts of the program 
work. 

Description and feedback 

Every go, the computer must tell the player where he is and the directions in which he can 
move. It must also tell the player what happened as a result of his last instructioits. This is 
the description and feedback section and it looks something like this. See if you can 
identify each part in the program listing on pages 35 to 37. 

RM is the number of the location the player 
is in. You must remember to set a starting 
value for this in the initialization routine. (For 
Haunted House 57 is the starting value for 
RM, see line 2090). 

The computer looks in D$ (the array 
containing all the descriptions) and prints 
what it finds in the box with the value RM. 



l a o FPW T -! 7 0 B " 

o 190 IF L(1)=RH AND F(1)=0 THEN PRINT 
■ LSE£_“_llt$(l);- HE RE’ 
o 200 NEXT 1 
220 PRINT H$ 
o 



Urgent 
message for 
player from 
Subroutines. 



Looks at the length of the string in box RM in 
the routes array, R$. The computer then 
loops round this number of times, printing 
out each character in R$(RM) in turn, 
putting a comma and a space between each 
one. 


Loops round to see if there is an object with 
a zero flag in the location (i. e. a visible 
object) and prints out its name if there is. 

M$ is a variable used to contain messages 
the computer has for the player, as a result 
of instruciions given in the previous go. 

Look for M$ m the program listing on pages 
33 to 37 and see how different messages are 
put into M$ depending on what the player 
typed. 

At the beginning of each go, M$ is set to 
“WHAT?", so if there is no new message to 
replace this, the computer just prints 
"WHAT?” 


Right -I'H take 
"WHAT?‘‘out. 


The input section 


An in\portant feature of adventure games is the way the computer responds to instructions 
typed into it by the player. Haunted House, like many adventures, limits the player to 
two- word sentences, plus a few special one-word conunands such as HELP. The next 
section of your program must ask the player for instructions and then tell the computer 
what to do with them. 

To start with the computer needs to split the player’s input into two words which it can 
then check against the words it has in its memory. The “word-splitter” routine used in 
Haunted House works by scanning the player’s input until it finds a gap in the letters. It is 
listed below with a few extra lines so you can type it in by itself and see it working. * 


100 CLS 

no PRINT "PLEASE TYPE SOHETHING" 
120 INPUT Q$ 


Gets player's instruction and puts 
it in Q$. Sets up two new string 
variables: V$and W$. 


130 V$="" 

140 «$=“■ 

150 FOR 1=1 TO LEN(Q$) 


160 IF HID$IQ$,I,1)=" " AND V$= 
THEN V$=LEFTi(Q$,I-l) 



IVe found 
a space ' 


170 IF HID»(Q*,I+l,l)<>’ ■ AND V«>" THEN N$=HID$ 
(Q$,I+1,LEN(Q$)-1);I=LEN(Q$), 

CIZ 




180 NEU I 
190 IF N*=" 


THEN V*=9$ 


1 


200 H$=’THESE ARE YOUR 2 NORDS* 

210 PRINT "FIRST N0R0="|V$ 

220 PRINT "SECOND N0RD="iN$ 

230 IF N$=” THEN H$="Y0U ONLY TYPED ONE NORD* 
240 IF Nt=" AND V$="" THEN N$="Y0U DIDN’T TYPE 
ANYTHING" 

250 PRINT N$ 

260 STOP 


Looks to see how many 
characters there are in Q$ and 
starts a loop which goes round this 
many times. 


Looks through 0$ for a space. If it 
finds one and V$ is still empty, it 
puts all the letters to the left of the 
I space into V$. 


These line numbers 
do not correspond 
to numbers in main 
program listing. 



Continues to look through Q$ until 
it finds a letter following a space. 

It then takes everything to the 
right of this space and puts it in 
W$. (This means it doesn’t matter 
how many spaces the player 
types between his two words. ) 


When V$ and W$ are both filled, 
the loop counter is set to its 
maximum value to end the loop. 


If the computer didn't find a gap in 
the letters then V$ and W$ will 
still be empty when the loop has 
finished. It then takes the whole of 
0$ and puts it in V$. 

This section is so you can run the 
word-splitter by itself. It prints out 
messages depending on what 
you typed in. Run the program 
and see what happens. 


NB This will not work on Sinclair (Timex) computers. Seepages 38 or 39. 



WRITING THE PROGRAM 

Analysis of input 


The computer now has the player’s instructions stored in two strings V$ and W$, which 
stand for “verb string” and “word string”. Its next job is to check these against the words 
you have given it in the initialization procedure on page 66. It assiunes the word in V$ is a 
verbandloopsroimdseeingif it matches any of the verbs in the array V$( ). (Notethe 
difference between the string variable V$ and the array V$( ) - they are completely 
different things to the computer, so make sure you don’t confine them.) 

The computer then loops round in the same way trying to match up W$ with one of the 
words in the array 0$( ). 

Here is the section of program which checks for a match between the player’s words 
and the words in the computer’s memory. 



VB is a new variable set up to record the 
box number containing the matching verb. 
If the player typed GET, for example, the 
computer looks through V$( ) until it 
reaches box 10 where GET is stored. So, in 
this case. VB=10. 


I've found 
it - its 
in 10. 


10 VB=0 


20 FOR 1=1 TO V 

30 IF V*=V$(I) THEN VB=1 

40 NEXT I 


The computer loops round V times (V is the 
number of verbs in the computer's 
memory), comparing the player’s verb with 
each of those in its memory. If it finds one 
that matches, it sets VB to the appropriate 
number. 


50 0B=0 

60 FOR 1=1 TO H 

70 IF W$=0$II) THEN 0B=I 

80 NEXT I 


The loop for W$ works in the same way, 
using OB to record the box number of the 
matching word. 



What if the words don't match? 

If no match was foimd, then VB and OB will 
still be zero. The computer takes this as 
meaning that box zero in the array contains 
the match for the player’s word. But when it 
looks there to find out what the matching 
word is it doesn’t find anything because you 
left this box empty when filling the arrays 


Silly combinations 


Notice that this matching-up process only 
checks if the two words are in the 
computer’s memory. It doesn’t check to see 
if the combination of words makes sense. A 
silly combination such as UNLOCK 
C AI^LE gets through this stage of the 
progreun, but will be rejected later on when 
computer tries to carry out the action. It 
much quicker just to check the separate 
at this stage than to tell the computer 
to check for valid combinations. 

At the end of this section of the program, 
the computer has a Vedue for VB and a value 
for OB. You can see what it does with these 
on the next page. 




Setting up error messages 


The computer can use the values of VB and 
OB to see if the player needs to be sent a 
message saying his instructions are no 
good. This part of the program is like a filter 
or grader. The player’s instructions are fed 
through a series of tests. If they don’t pass 
one of the tests, a new message is put in M$. 
If they pass through all the tests, M$ still 
contains the message “WHAT?” which was 
set up in line 220. (Remember that, at this 
stage, the messages are just set up, they are 
not printed on the screen and may be 
changed again later in the program 
anyway.) 

Here are the program lines which set up 
the error messages inHaunted House - see 
if you can find them in the main listing. You 
will need similar lines if you are writing your 
ownadventiure. 

Remember the message 
in M$ might be changed 
again later on in the 
program. 



• IF «$>-■ AND 0B=0 THEN H$=-JHAT'S SILLY" * 


object to the zero and produce an “on 
range” error. To get roimd this, VB is 
changed from zero to a value greater than V 
(the number of verbs in the computer’s 
memory), and the computer is sent to a 
“diunmy” subroutine. 


IF Nl="" THEN H$="I NEED TNO WORDS" 



This line sets up a message if the player 
only typed one word and so W$ is empty. (If 
the word is one of the allowed one- word 
commands, this message will be changed 
later in the program.) 


^ IF can’t ’ ^ 

* VQSf'" 

o - - • 




You can't 
"kill ghosts”. 



The first test looks to see if there is a word in 
W$ (i.e. that the player typed two words) 
and then checks if the value for OB is zero. 


This line sets up a message if the computer 
doesn’t have the verb in its memory, but 
does have the object. 


IF yB)V AND 0B=0 THEN H$= 
HAKE SENSE" 




This line is to overcome a problem. You 
cannot GOSUB on a value of zero. But 
different B ASICs vary in the way they cope 
with being asked to do this. Most of them 
ignore the GOSUB and carry on to the next 
line. Some, however, such as the BBC, 


You don't 
make sense . J 

If the computer doesn’t have either of the 
player’s words in its memory it sets up this 
message. 
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WRITING THE PROGRAM 



IF VB<V AND «a>0TND C(0B)<>l THEN «$= 

® "YOU DON’T HAVE ”0$(0B) ® 



Override conditions 

Sometimes things happen in an adventure 
which prevent the player from doing 
anything until he has dealt with them. In 
these circumstances, instructions which 
would normally be vahd need to be 
overridden, so the computer needs 
program lines which set flags* in its 
memory to tell it that special conditions 
apply. 

In Haunted House, lines 420 to 450 cure 
override conditions. You can see them on 
the right, with an explanation of how they 
work. 



Line 420 

If bats are present, player is in Rear Turret 
Room, random number is not 3 and player 
hasn't used verb 2 1 (SPRAY) in his 
instructions, then M$ is set to "BATS 


ATTACKING" and player cannot go any 
further in the game. 

Line 430 

If player is m Cobwebby Room, random 
number value is 1 and vacuum cleaner is 
switched off, then flag is set for paralysing 
ghosts to appear, i.e. F(27) issetto 1. 

Line 440 

If candle is lit, then light limit counter, LL, is 
decreased. 

Line 450 

If LL is zero, then candle on/off flag, F(0), is 
set to zero. 



Perhaps you can think of other override 
conditions which could be added here. 


Branch to subroutines 

The computer’s next task is to attempt to 
carry out what the player wants to do. If it 
had to search through every possible action 
until it found the one the player wanted each 
time, the game would be very slow and 
boring. To avoid this, you use lots of 
subroutines - one for dmost every verb on 
the verb list. (A few, such as GET and TAKE, 
can share the same one.) 

You can then use an ON . . . GOSUB line to 
tell the computer to branch to a different 
subroutine depending on the value of VB. 


. ON VB 60SUB 500,570,640,640,640,640, • 

ins;: 

• 1180,1220,1250,1300,1340,1380.1400, • 

_ 1430, !iii!gil490,15W, 1590 

• • 


5ee page 1 8 for more about flags. 


How the ON. . .GOSUB line works 


The ON . . . GOSUB line on the opposite page works like this. If VB= 1 the computer goesto 
the first line number listed, if VB=2 it goes to the second, if VB=3 it goes to the third andso 
on. Notice that the last line number listed is a “dummy” subroutine for VB= V -h 1 (the value 
of VB when no matching verb was found in the computer’s memory). The line it is sent to 
just says RETURN and so sends the computer straight back up the program again. 

Look at the subroutines on pages 82 to 84 and see if you can work out what they all do. 
Here is the procedure for LIGHT (VB = 19) as an example. You will find it at lines 1340- 1370. 


1. If the object 
word in player’s 
instructions is 
“candle”. 



What happens if the object is not candle? Back to the main program 


If the object the player wanted to use was 
not CATTOLE, but one of the others in the 
computer’s memory, such as DOOR, then 
the message m M$ is unchanged from when 
it was set up in line 220. When the computer 
retiums to the main program and finds the 
instruction PRINT M$ it will print the 
message “WHAT?”. 

Notice that there is no need to set up a 
message saying the candle isn’t there, as 
this is already covered in the error 
messages section. 


Although some of the verb routines are 
longer and more complicated than this one, 
they all work in a similar way: the value of 
OB is checked, a special message is set up 
if necessary and then the computer returns 
to the main program. It checks the light linut 
at lines 470 and 480 and is then sent back to 
the description and feedback section. Here 
it prints out the message it has put in M$ and 
waits for the next set of instructions from the 
player. 


WRITING THE PROGRAM 

The GO subroutine 

The subroutine for the verb GO is so large 
and important in an adventure gcune you 
could almost think of it as a sub-program. 
Seven verb commands are directed to it - 
GO, N, S, W, E, U and D. This routine is also 
special because it responds to single-letter 
direction commands as well as two- word 
ones. You don’t have to include this facility 
in your program, but it does help make the 
game quicker and more interesting to play. 
If you’ve played many adventiures you will 
realize how tedious it is to have to type GO 
NORTH etc. every time. 

This is how the GO routine works. 


This is how the 
GO routine works. 





640 D°0 

6S0 IF 08-0 THEN D°VB-3 
660 IF 08^19 THEN D°1 

670 IF 08*20 THEN 8*2 

680 IF 08*21 THEN 8*3 

690 IF 08*22 THEN 0*4 

700 IF 08*23 THEN 0*S 

710 IF 08*24 THEN 0*6 

720 IF RN*20 AND 0*3 THEN 0*1 

730 IF RH*20 AND 0*6 THEN 0*3 

740 IF RN*22 AND 0*6 THEN 0*2 

750 IF RN*22 AND 0*3 THEN 0*3 

760 IF RN*36 AND 0*6 THEN 0*1 

770 IF RN*36 AND 0*3 THEN 0*2 

780 IF FI14I*1 THEN H»*'CRASHI YOU FELL OUT OF THE TREE!* 
!F(14)*0;RETURN 

790 IF F(27)*l AND RH*52 THEN N»**6H0STS NILL NOT LET YOU 
NOVE*: RETURN 

800 IF RN*4S AND'Cll)*! AND F(34)*0 THEN N«*HI (2): RETURN 
810 IF (RH*26 AND F(0)*0l AND (0*1 OR 0*4) THEN N4**Y0U N 
EEO A LI6HT*:RETURN 

820 IF RH*34 AND C(15)01 THEN H$**Y0U'RE STUCK! *:RETURN 
830 IF C(t3l*l AND N0T(RN*33 OR RN*34 OR RN*S3 OR RN*47IT 
HEN Nt*HI(3):RETURN 

840 IF (RN>26 AND RN<30) AND F(0)*0 THEN Ht**T00 DARK TO 
NOVE'.-RETURN 



You can see now why 

D=1 

directions were 

D=3 

included on both the 

D=2 

verb and the object 

0=3 

lists. 

0=1 

0=2 





First, a variable D is set up to hold 
information about the direction in which the 
player wants to move. Its values 1 to 6 
correspond to north, south, west, east, up 
and down. 


The next line checks to see if the player just 
typed one word and then gives D a value 
depending on the value of VB. (Notice that 
by taking 3 away from VB, the computer 
gets values for D which correspond to those 
in lines 660 to 710 . ) 



The next six lines check if the player typed 
a two- word direction instruction. They use 
the value of OB to set the value of D. 



As this is not really a 3D adventure, the UP 
and DOWN instructions need to be 
converted into north, south, east or west. 
Lines 720 to 770 do this. (If you check back 
to the master plan on pages 62 to 63, ycu will 
see that this does work.) 


26 



Lines 780-840 



The computer also needs to check if there If the player is in location 52 and the ghost 

are any special conditions which affect the flag is “on” then a message is sent to say he 

player’s ability to move. For example if cannot move. Each of these conditions 

F( 14)= 1, then the player is at the top of the returns the computer to the main program, 

tree. If he tries to move without first See if you can work out what the rest of the 

climbing down, he gets a message saying lines in this section do. 
he has fallen. jg g Qgg {qj. (jjg computer to use to register 

, .. ^whether it has found the exit the player wants. 

Checking for walls 

r^RL is a new variable which holds the length of the 
string which it finds in R$(RM). (This string is the 
routes, NSW etc. , for the location the player is in. ) 


If the move has not been stopped 
by any of these special 
conditions, the computer must 
check that there isn’t a wall or 
anything else blocking the way. 
Here are the lines which do this. 
They look quite comphcated at 
first sight, but if you look carefully 
at each part, remembering what 
all the variables are, you should 
be able to see what is happening. 


850 FI35)=0!RL=LEN(R$(RH))- 
860 FOR 1=1 TO RL — 


870 Ui=HID$(Rt(RH),l,l) ; 

880 IF (U$=’N* AND D=1 AND F(35)=0:' 
THEN RH=RH-8:F(35)=1 
890 IF (U$="S' AND 0=2 AND FI35)=0: 
THEN RH=RN+8:F(35)=l 
900 IF (U$=’H‘ AND D=3 AND F(35)=0: 
THEN RH=RH-1;F <351=1 
910 IF iU$=-E" AND D=4 AND F(35)=0: 
THEN RH=RH+1;F(35)=1 
920 NEXT I 
930 Ht=‘QK'' 

940 IF F (351=0 THEN H$=-CAN’T 80 
THAT NAY' 

950 IF D<1 THEN H$='60 NHERE?' - 
960 IF RH=41 AND F(231=l 

THEN R$(491='SN*:H$-'THE DOOR 
SLAHS SHUT!';F(231=0 
970 RETURN 






• Computer loops round RL times. 

■ Each loop, computer takes one of the characters in 
R$(RM) and temporarily calls it U$. 

It then runs a series of tests on U$ and D. If the 
player's direction instruction matches an exit in the 
location he is in, then the value of RM is changed to 
move him to the appropriate place. F(35) is then set 
to 1 to stop the computer trying to change RM again 
on another trip through the loop. (If you think 
' carefully, you will see that this could be possible as 
the computer uses its new value of RM in line 870. ) 

If you check the master plan, you will see how 
adding or subtracting 1 or 8 moves the player to the 
correct next location. 

At the end of the loop, M$ is set to "OK". Thiswill 
replace the "I NEED TWO WORDS" message set 
in the error messages if the player typed a one- 
word direction. 

If F(35) is still zero, then the durection the player 
wants to go is not allowed and M$ is changed to say so 

If D is less than one (i. e. it wasn't assigned a value in 
.lines 650 to 770), then M$ is changed to "GO WHERE?" 

This line makes the front door a "once-only" route. 

When the player enters location 4 1 (the lobby), the 
exits from location 49 (front porch) are changed 
from "NSW" to "SW", M$ is set to "THE DOOR 
SLAMS SHUT" and the flag for the front door is set 
to zero to show the computer it is now closed. (The 
routes from location 4 1 do not need to be changed 
because S wasn't included in them in the first place. ) 27 


MAKING CHANGES 

Changing the program 

Longer descriptions 


You can change the program in this book as 
much as you like, either to produce 
variations on the haunted house theme or to 
create games with completely different 
settings, descriptions, objects, verbs and 
messages. Remember that the more you 
change, the more complicated it will get as 
you will have to think about how everything 
affects everything else. 

If you are going to write a new game, 
using this program as a guide, then you 
should plan it as described on pages 6 to 15. 
It is worth spending the time planning out 
your game properly as you are less likely to 
find it full of mistakes when you come to run 
the program. 

It is a good idea to start by making small 
changes first to see what happens. Ifyou 
store the master program on tape, you can 
make changes, test them and adapt them 
without losing the original. 

How much spare memory 
have you got? 



The Ha un ted House program itself 
occupies about 7K of RAM before it is run. It 
then needs a further 3 V 2 to 4K for the arrays 
to store the data. Your computer will take 
some memory for its own internal use - up 
to 3K on some models - and it will use a 
further IK or more for the screen. (The 
Spectrum uses 7K which is why Haunted 
House won’t fit into the 16K model.) So, if 
you have a 16K computer, you won’t have 
much memory left over, and most of the 
changes you make will have to be 
28 replacements rather than additions. 


If you have more than 16K, one of the easiest 
ways of making the game more interesting 
to play is to add longer descriptions. 

Instead of “impressive vaulted hall’’ for 
instance, you could say something like “You 
have entered a vast, vaulted chamber with 
pillars extending many times your height 
above you. Light filters in from the east and 
there appears to be a doorway in the 
distance to the west . . 



Add a time limit 

Haunted House already has a time limit on 
the life of the candle. You could add an 
overall time limit to the game as well by 
getting the computer to count the number of 
turns the player has had and stop the game 
at a preset number. 

You can do this by adding to line 70 and 
putting an extra line at 485 like this. 



70 V=25;W=36:G=18;T=0 


You may not need to 
do this as not all 
computers need new 
variables to be set up 
before they can be 
used. 


485 T=T+1:IF T>200 
-MIDNIGHT HAS STRUCK. 
YOU’VE TURNED INTO A BAT 



[ You can change this number to 
I anything you like, 


Puzzle 

Can you think how to put a limit on the 
number of objects that can be carried at 
any one time? (You will have to adjust the 
scoring routine as well.) 





Adding sounds 



Squeak 

Squeak 


This is an effective way of adding to the 
game without having to make complicated 
changes. You will need to know how yoiu: 


computer's sound instructions work. Test 
some sound routines out first to make siure 
they are what you want and then add a 
GOSUB instruction to the line where the 
action occurs, eg IF RM=46 AND C( 1)= 1 
THEN M$=“SOMETHING SCARY IS 
HAPPENING”: GOSUB 6000 
You could add sounds for the front door 
>^slanuning, the secret wall breaking, the key 
turning in the door, magic happening when 
you use the magic word and so on. This 
chart gives a few soimd routines for various 
computers. The only limit on the number 
you can add is memory. 


FALL OUT or 
TREE 



VIC 20 

\ 




r 

SPECTB 

lUM 



' BBC/ ^ 
Electron 




\ 

DRAGON/ 

TRSGOLCn 





POKE 36877,130 
FOR L*15 TO 0 STEP -1 
POKE 36878, L 
FOR N=1 TO 20; NEXT H 
NEXT L 

POKE 36877,0 


FOR L=-15 TO 0 
SOUND 0,L,5,1 
NEXT L 


rtKE Mm.lSsPW S4277.U 
Wf 54771, ?4«jrcn 54774, 12t 
W Wn,l9:mf 54775.M 
rii 1«IS TO 0 STfP-ltrOCf 547t4,l 
FOO TM TO 50>HITi«IT 


DOOR SLAM 





POKE 36877,130 
FOR L=15 TO 0 STEP -1 
POKE 36878. L 
FOR H=1 TO 2; NEXT H 
NEXT L 

POKE 36877,0 


FOR L=-15 TO -8 
SOUND 0,L, 5,0.6 
NEXT L 


PMC 54744, l5iP0R 54777,14 
PM 54770,74OiPOn 54774,171 
POKE 54777, lOiPOa 54773,30 
TOO 1*I5 TO 0 STlP-ltPOa 54714.1 
POO T*l TO I0 jK1T:IKIT 


MAGIC 



POKE 36878,15 

FOR 1*160 TO 240 STEP 5 

POKE 36876,1 

FOR H*1 TO lOOiNEXT H 

POKE 36876,0 


FOR 1*5 TO 40 STEP 3 
BEEP 0.2,1 
NEXT 1 


FOR 1*40 TO 160 STEP 5 
SOUND 2, -15,1, 5 
NEXT I 


FOR 1*50 TO 230 STEP 10 
SOUND 1,2 
NEXT I 


POKE 54714,l5iP0K 54770,170 
POKE 54777, l34iP«£ 54774,33 
POO HIO TO IM STEP 10 
POKE 54777,ltP0R{ 54773,0 
POi T>| TO SOiKlTtHIT 
PM 54714,0 


AXE BLOWS 



POKE 36878,15 
FOR 1=1 TO 10 
POKE 36877,200 
POKE 36877,0 
FOR H=1 TO 400; NEXT h 
NEXT I 


FOR 1*1 TO 10 
BEEP 0.01,0.01 
FOR H=1 TO 100;NEXT H 
NEXT I 


FOR 1*1 TO 10 
SOUND 0,-15, 5,1 
FOR H*1 TO I000;NEXT H 
NEXT I 


PM l>l TO 5 

POKE 54714, ISiPM 54777,112 
PM 5477I,240:PM 54774,171 
PM 54272, lO.'PM 54273,30 
PM flS TO 0 STEP -l:P«E 54214, 
Limit 

PM T*l TO 3Mt«lTiMlT 


GENERAL 

PROMPT 



POKE 36878,15 
FOR 1*1 TO 2 
POKE 36876,200 
POKE 36876,0 
FOR H*1 TO 400: NEXT H 
NEXT I 


BEEP 0.5,5 
PAUSE 50 
BEEP 0.5,5 


SOUND 2,-15,100,2 
FOR H*1 TO 1000; NEXT H 
SOUND 2,-15,100,2 


SOUND 180.1 

FOR N=1 TO 500:NEXT H 

SOUND 180,1 


PM !■! TO 2 

PM S4214,lStP0KC 54277,134 
PM 5427f,24|iPM 54774,33 
PM 54777, IliPM 54273, 3« 

PM T-1 TO l•lKlTlPM 54214,0 
PM T«1 TO SOOiMHiMIT 


MAKING CHANGES 


Scoring 

Ha un ted House has a very simple scoring 
system, awarding one point for each object 
the player is carrying. You could change to 
a more interesting system, such as basing 
the score on the value of the object. If you 
assume that the objects are numbered in 
descending order of value, then the 
painting will be the most valuable and the 
key the least. If you change line 1530 like 
this: 

1530 IF C(I)= 1 THEN S=S-f G-I 

then the painting will be worth 18— 1=17 
and the key 18— 18=0. (G is the number of 
gettable objects and I is the number of the 
object the player is carrying.) This makes 
the key valueless as an item of treasure but 
of great value as a useful object because 
without it, the player would not be able to 
get the painting or the goblet. 



DIM TIG) 

FOR 1=1 TO 6 
READ T(I) 
NEXT I 


^Dimensions new 
array T with G 
spaces (i.e. number 
.of gettable objects) 


Also change line 1530 as follows: 

1530 IF C(I)= 1 then S=S-I-T(I) 

Penalties _< 

So far, the scoring 
routine has only 
counted plus points 
and not been 
affected by silly 
things the player 
might try to do. You 
could add a penalty 

system quite easily by using a counter, say 
MK, for nustakes. Whenever the player 
does something really silly, you add to MK 
and then subtract it from S when the score is 
worked out at line 1530. If the player falls out 
of the tree, for instance, you could award 
one (or more) penalty points like this: 




If you Wcuited a more flexible system (and 
you have enough memory), you could set up 
an array to contain object values in the 
initialization routine, like this: 



30 


DATA 20,20,30,11,16,25,32,8,25,4,9,17,3,0, 
10,12,4,9 


780 IF F(14)=l THEN M$=“CRASH YOU FELL OUT 
OF THE TREE":F(14)=0:HK=HK+1:RETURN 

Don’t forget that some computers need 
new variables to be defined before they can 
be used. You can do this by adding MK=0 
to the variables in line 70. 

Saving the game 



It would be nice to 
be able to switch 
off part way 
through a game 
and then canyon 
later from where 
you left off. With 
long, complicated 
games this is a very 
important featiure 
and you can include it by adding SAVE and 
LOAD to the verb list. In line 70, change the 
value of V to 27 and add the two new verbs, 
separated by commas, to the end of line 
1665. You will also need to change the ON 
GOSUB line at line 460. 



Put the line numbers of the two new 
subroutines (one for SAVE and one for 
LOAD) between the last two numbers in line 
460 so that they read: 

. . . 1510,3000,4000,1590 


/ 


First new number 


\ 

Second new number 


Then add the new subroutines like this, 
checking your computer’s manual to make 
sure the wording is correct. 


^^^3000 INPUT MS YOUR CASSETTE 
READY TO RECORD'; Yl 
3010 IF YIO'Y' THEN 3000 
3020 OPEN FILE FOR OUTPUT FROM 
COMPUTER 

3030 PRINT ti,RN 


/Repine this line 
with your 
computer’s own 
instructions. You 
may not even need 
L line here at all. 



This saves the 
room the 
player is in. 



3040 

3050 

3060 

3070 

3080 

3090 

3100 

3200 

4F4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4200 



FOR 1=1 TO 6 
PRINT ll,L(I)' 

NEXT I 

FOR 1=1 TO N 
PRINT ll,C(I),F(I) 

NEXT I 

CLOSE 

RETURN 

INPUT 'ARE YOU READY TO L0AD';YI 
IF YIO'Y* THEN 4000 
OPEN FILE FOR INPUT TO COMPUTER 
INPUT II, RM 
FOR 1=1 TO 6 
INPUT ll,L(I) 

NEXT I 

FOR 1=1 TO U 
INPUT ll,CII),Fm 
NEXT I 
CLOSE 
RETURN 


This loop saves 
positions of 
gettable objects. 


c 



This saves items the 
player is carrying and 
the state of the flags. 


Note that this save routine does not save the 
descriptions and routes in the game. This 
means that the rooms and routes altered by 
the player’s actions vdll return to their 
original state - the secret wall will be 
rebuilt, the door relocked and so on. (The 
ghosts are probably responsible.) You 
could save the D$ and R$ arrays if you 
wanted to, by adding extra loops to each of 
the SAVE and LOAD routines. 


Do you give in? 

Like most adventures, Ha un ted House 
contains traps for the player which can only 
be avoided by using a certain object in a 
certain way. If the player doesn’t have that 
object he is stuck. A “quit” featiure would be 
useful in this situation so the player does not 
have to press BREAK or ESCAPE to end the 
game. You can do this by adding QUIT to 
the verb list and putting in a new sxibroutine, 
as for SAVE and LOAD described on the 
left. 



Vcdue of V in line 70, add QUIT to the end of 
line 1665 and insert the new subroutine line 
number in line 460, putting it in the second 
to last position. 

The QUIT subroutine should be 
something like this: 



5000 INPUT -HANT TO QUIT-;Qi 
5010 IF Q$OT THEN RETURN 
5020 INPUT -LIKE TO SAVE SANE FIRST", Q$ 
5030 IF QS=-Y- THEN GOSUB 


You don’t need this if you 
haven’t put the SAVE feature 
in. 


5040 PRINT -THANKS FOR PLAYING- 
5050 END 


Notice that there is no RETURN at the end of 
this subroutine. This is usually against the 
rules in BASIC but, in this case, the 
computer cannot get confused because the 
program will no longer be running when it 
reaches line 5050. 


01 f you have a BBC, you may need to replace semi-colon with a comma. 



MAKING CHANGES 

Debugging your adventure 

If you write your own version of Haunted House or use the routines in it to make anew 
adventure, then you are quite likely to make mistakes. Finding mistakes and putting them 
right is called debugging. Here are some of the problems you might come across and some 
suggestions for fixing them. 




ut of data 






If the computer gives you an error code which stands for 
“out of data in line x” then it means that the numbers don’t 
tie up in one of your data-reading sections. Check that the 
number of items of data is the same as the munber in the 
loop for reading them in. You could have left a comma out 
in the DATA statement perhaps, or missed out one item 
altogether or put the wrong number in the loop. 


DIN AI4) 

FOR 1=1 TO 4 
READ Ad) 

NEXT 1 

DATA SN0RD,N0NEY,F00D HATER 


Array error 






DIN F(3) 
FOR 1=1 TO 
READ Ad) 



4 


If you get an array error, it means that you didn’t reserve 
enough space when you DIMmed the array or you 
accidentaUy put an extra item in the DATA statement 
(perhaps by putting in an extra comma) and then coimted 
this extra item when working out the munber for the READ NEXT 1 
loop. DATA AXE, COFFIN, BLOOD, KEY 


pbjects behave in strange ways 




This could happen because the program is being directed to the wrong subroutine by 
the ON GOSUB line. Check each number in this line agadnst the subroutine with the same 
number. If these are all correct, check the DATA statement for the verbs to see if their 
order coincides with the order of the subroutines. 

If the program is going to the correct verb subroutine and the verbs are listed in the 
correct order, check that there is a RETURN line at the end of each subroutine. If this is 
missing, the computer will “fall through” the program to the next subroutine down which 
may produce some strange results. 

If none of the above things solves the problem then check through the conditions in 
the subroutine carefully. You nught have missed something out or got a sign wrong or 
used the wrong variable by mistake. Check the override conditions and flags which 
occur earlier in the program too. 

\Exits in funny places 



If you find a wall you can walk through or a doorway you can’t, you may have made a 
mistadce in planning your routes or in typing in the route data. Check your route map 
against the data lines to find the mistake. 

\ Objects don't appear where they should 

If an object appears in the wrong place then you’ve probably made a mistake in the data 
for array L. If an object doesn’t appecu: at all, check the flag array. You must have set the 
flag with that object number to 1, which means that the object is there but the computer 
won’t tell you. Y ou need to set the flag to zero. Check the initialization routine where the 
flags are set up and then the flag references throughout the program. 
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INPUT & INPUT ANALYSIS DESCRIPTION & FEEDBACK 


PROGRAM LISTING 

The Haunted House listing 


This is the program listing for the Ha un ted House adventure. It should nm on any 
computer which uses Microsoft-style BASIC and which has a minimum of 16K of RAM. You 
may have to make a few minor changes for your computer - look out for comments next to 
certain lines in the listing. If you have a BBC Model A, use mode 7. 

This listing will not work as it is on Sinclair computers. If you have a Spectrum, turn to 
page 86 for changes to make to the program. If you have a ZX8 1 there is a special listing for 
you on pages 87 to 93. 

As this is a long program, you will have to be extremely careful when you type it in. The 
smallest mistake could prevent it running properly and will be very difficult to find once 
you’ve typed the whole program in. Check each line as you go, especially the ON GOSUB 
and DATA lines. Some of the program lines are so long that they t^e up two or more lines 
on the printed page. Look out for these and make sure you do not press RETURN or ENTER 
until the end of the program line. 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
65 CLEAR 


HAUNTED HOUSE ADVENTURE 

THIS VERSION FOR 'MICROSOFT' BASIC 
REQUIRES A MINIMUM OF 16K 
SELECT 'TEXT MODE' IF NECESSARY 


If you have a VIC or C64, changA 
CLS to PRINT CHR$( 147). If you 
have an Apple change it to 


rV 

79 


Line 70 sets up the 
variables. V is number of 
verbs, W is number of 
object words, G is 
number of “gettable” 
objects. 




See page 68 to hnd out 
how the description and 
feedback section works. 


"YOU CAN SEE "i OKI);" HERE" 


y 

r 2 


100 

70 V=25:K=36:6=10 
0 GOSUB 1601 

90 CLS: PRINT "HAUNTED HOU 
100 PRINT 

no PRINT "YOUR LOCATION" 

120 PRINT D$(RH) 

130 PRINT "EXITS:"; 

140 FOR 1=1 TO LENIRKRN)) 

150 PRINT HIDI(R$(RH),I,1);","! 

160 NEXT I 
170 PRINT 
180 FOR 1=1 TO 6 

190 IF L(I)=RN AND F(I)=0 THEN PRINT 
200 NEXT I 

210 PRINT "=========================" 

20 PRINT NI:H$="NHAT?" 

230 PRINT "NHAT MILL YOU DO NON": INPUT Q) 

240 V$="":NI="":VB=0:0B=0 
250 FOR 1=1 TO LEN(9$) 

260 IF HIDI(QI,I,1)=" " AND V$="" THEN Vf=LEFT$(QI,I-l) 

270 IF HIDI(Q$,I+1,1)<>' 'AND VIO"" THEN Nf=HIDI(Q$,l+l,LEN(QI)-l):I=LEN(B») 
280 NEXT I 

290 IF N$="" THEN V$=Q$ 

300 FOR 1=1 TO V 
310 IF V$=VflI) THEN VB=1 
320 NEXT I 

330 FOR 1=1 TO N ( 

340 IF N$=0l(I) THEN 0B=1 




See pages 69-70 to find 
out how the input section 
works. 
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PROGRAM LISTING 


§ 

£32 

51: 

«5f 

wO 

ok 

SI 

o 


1% 


05 

I 

CO 

CO 



See pages 71-72 to find^ 

out how the error 


messages section 


works. 

J 
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NEXT I 

IF Nf>“ AND 0B=0 THEN H$=’THAT'S SILLY* 

IF VB=0 THEN VB=V+1 
IF Nl=*" THEN n$=“I NEED TNO NORDS* 

IF VB>V AND 0B>0 THEN H$=*YOU CAN'T '*+Q$+*'* 

IF VB>V AND 0B=0 THEN H$=*YOU DON'T HAKE SENSE 
IF VB<V AND 0B>0 AND C(0B)*0 THEN H$=*YOU DON' 

IF F(26)=l AND RH=13 AND RND(3)<>3 AND VB021 THEN Hf=H$(l):60T0 90 
IF RHM4 AND RND(2)=1 AND F(24)01 THEN F(27)=l 

IF F(0)=1 THEN LL=LLM ^ 

IF LL<1 THEN F(0)=0 

IF VB>15 THEN SOTO 465 ^ J 

ON VB 80SUBSOO , 570 , 640 , 640 , 640 , 6>0,640t«40 ,640,980,980,1030,1070,1140,1180 
GOTO 470 

ON VB-15 GOSUB 1220,1250,1300,1340,1380,14)1(0,1430,1460,1490,1510,1590 
IF LL-10 THEN H$-*YOUR CANDLE IS NANING 
IF LL=1 THEN H$**YOUR CANDLE IS OUT!* 

SOTO 90 

PRINT *NORDS I KNON; 

FOR 1=1 TO V 
PRINT V$(I>5*,*; 

NEXT I 
HI=**:PRINT 
GOSUB 1580 
RETURN 

PRINT "YOU ARE CARRYING:* 

FOR 1=1 TO G 

IF C(I)=1 THEN PRINT OKI);*,*; 

NEXT I 
H$=**:PRINT 
GOSUB 1560 
RETURN 
D=0 

IF 0B=0 THEN D=VB-3 
IF 0B=19 THEN D=1 
IF 0B=20 THEN D=2 
IF 0B=21 THEN D=3 
IF 0B=22 THEN D=4 
IF 0B=23 THEN D=5 
IF 0B=24 THEN D=6 
IF RH=20 AND D=5 THEN 

IF RH=20 AND D=6 THEN 

IF RH=22 AND D=6 THEN 

IF RH=22 AND D=5 THEN 

IF RH=36 AND D=6 THEN D=1 

IF RH=36 AND D=5 THEN D=2 

IF F(14)=l THEN H$=*CRASH! YOU FELL OUT OF THE TREE! *;F(14)=0: RETURN 
IF F(27)=l AND RH=52 THEN Ht=*GHOSTS NILL NOT LET YOU HOVE*: RETURN 
IF RH=45 AND C(l)=l AND F(34)=0 THEN HI=H« (2): RETURN 
IF <RH=26 AND F(0)=0) AND (D=l OR D=4) THEN HI=*YOU NEED A LIGHT*: RETURN 



Take extra special care 
to type this line 
correctly. It will mess up 
the game if you get it 
wrong. 



The branch to 
subroutines section and 
the verb subroutines axe 
explained on pages 72- 
73. 


You can find out how the 
GO subroutine works on 
pages 74-75. 


VERB 17 VERB 16 VERBIS VERB 14 VERBIS VERBIS VERBS 10& 11 


I 


820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
Kjia 
r m 

985 

990 

1000 

1010 

\^20 

/To30 

1040 

1050 

M060 

/M070 

1080 

1090 

1100 

1110 

1120 

yi30 

M140 

1150 



IF RH=54 AND C(15)01 THEN H$='Y0U'RE STUCK! ":RETURN 
IF Cl 151=1 AND N0T(RH=53 OR RH=54 OR RH=55 OR RH=47)THEN H$=HI(3): RETURN 
IF (RH>26 AND RH<30) AND F(0)=0 THEN H$='T00 DARK TO HOVE“:RETURN 
F(35)=0;RL=LEN(R$(RN)) 

FOR 1=1 TO RL 
UI=HID»(R$(RH),I,1) 

IF (Ut=‘N" AND D=1 AND F(35)=0) THEN RH=RH-8:F (351=1 

IF (U$="S* AND D=2 AND F(351=01 THEN RH=RHt8:F(351=l 

IF (U$="N' AND D=3 AND FI351=01 THEN RH=RH-1;F(351=1 

IF (Uf="E' AND D=4 AND F (351 =01 THEN Rn=RH+l:F (351=1 

NEH I 
H$=*0K" 

IF F(351=0 THEN H$=’CAN’T 60 THAT NAY!" 

IF D<1 THEN H$='G0 NHERE?" 

IF RH=41 AND F(231=l THEN RI(491=*SN‘!H$="THE DOOR SLAHS SHUT":F(231=0 
RETURN 

IF 08>6 THEN HI="I CAN'T BET •+NI:RETURN 
IF LIOBIORH THEN H$='IT ISN'T HERE" 

IF F (08100 THEN HI="NHAT "+NJ+"?" 

IF C (081=1 THEN N$="Y0U ALREADY HAVE IT" 

IF 08)0 AND L(081=RN AND F(081=0 THEN C(081=1;L(081=65:NI=H$(4HH$ 
RETURN 

IF RH=43 AND (08=28 OR 08=291 THEN FI171=0!H»="DRANER OPEN" 

IF RH=28 AND 08=25 THEN H$="IT'S LOCKED" 

IF RH=38 AND 08=32 THEN H$="THAT'S CREEPY! ":F(21=0 
RETURN 

IF 08=30 THEN F(181=O:H$="S0HETHIN6 HERE!" 

IF 08=31 THEN H«="THAT'S DISGUSTING!" 

IF (08=28 OR 08=291 THEN H4="THERE IS A DRANER" 

IF 08=33 OR 08=5 THEN 60SU8 1140 
IF RH=43 AND 08=35 THEN H$="THERE IS SOHETHING BEYOND... 

IF 08=32 THEN 60SU8 1030 
RETURN 

IF RH=42 AND 08=33 THEN HJ="THEY ARE DENONIC NORKS" 

IF (08=3 OR 08=361 AND C(31=l AND F(341=0 THEN N$=H$(51 


If you are using a VTC 20, 
you could shorten the 
messages to 22 
characters or make siure 
the spaces fall in the 
right places so the 
messages look better on 
the screen. 


ORIC USERS 

ORIC his 1 restricted line length, so 
if a line Hon’t fit, try: 

a) leaving out spaces. 

b) putting variables at the start of 
the prograi, e.g. S LET ItM'TOU SEE 
THICK....’: 1310 ...THEN R1=T1». 

c) use a 60SUB after THEN and put the 
rest of the tine in a subroutine. 

dl split data lines into tuo. 


1160 IF C(51=l AND 08=5 THEN H$="THE SCRIPT IS IN AN ALIEN TONGUE" 

VJ170 RETURN 
^180 H$="0K '"+N$+"'" 

1190 IF C(31=l AND 08=34 THEN HI=H$(61:IF RH045 THEN RH=RND(631 
1200 IF C(31=l AND 08=34 AND RH=45 THEN F (341=1 
^210 RETURN 
1220 IF C(121=l THEN HI="Y0U HADE A HOLE" 

1230 IF C(121=l AND RH=30 THEN H$=H$(71:DI(RH1="H0LE IN NALL":R$(RH1="NSE" 
^40 RETURN 

1250 IF C(14101 AND RH=7 THEN H$="THIS IS NO TIHE TO PLAY GAHES" 

1260 IF 08=14 AND C(141=l THEN HI="Y0U SNUNG IT" 

1270 IF 08=13 AND C(131=l THEN HI="NH00SH!" 


Use your computer’s ] 
form of RND here. 
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INITIALIZATION VERB 25 24 VERB23 VERB 22 VERB 21 VERB 20 VERB 19 VERBIS 


I PROGRAM LISTING 


; 1280 
I 1290 


% 


1300 

1310 

1320 

1330 





. 1600 
1610 
1620 
1630 
1640 
1650 
1660 
1665 
1680 
1690 
1700 


IF 08=13 AND CI13)=1 AND RNM3 THEN ft$(Rn)='MN':D$(RN)=H$(8):N$=H$(9) 
RETURN 

IF 08=14 AND C(14)=l THEN H$=MT ISN'T ATTACHED TO ANYTHING!" 

IF 08=14 AND C(14)01 AND RH=7 AND F(14)=0 THEN HI=HlllO):F(14)=liRETURN 
IF 08=14 AND C(14)01 AND RH=7 AND F(14)=l THEN H$="G0INB D0NN":F(14)=0 
RETURN 

IF 08=17 AND C(17)=l AND C(8)=0 THEN HI="IT HILL 8URN YOUR HANDS" 

IF 08=17 AND C(17)=l AND C(9)=0 THEN H$="N0THING TO LIGHT IT NITH" 

IF 08=17 AND C(17)=l AND C(9)=l AND C(8)=l THEN H$=HI(11):F(0)=1 
RETURN 

IF F(0)=1 THEN F(0)=0:Ht="EniNGUISHED" 

RETURN 

IF 08=26 AND C(16)=l THEN N$="HISSSS" 

IF 08=26 AND C(16)=l AND F(26)=l THEN F(26)=0:HI="PFFT! GOT THEN" 

RETURN 

IF 08=10 AND C(10)=l AND C(ll)=l THEN HI="SNITCHED 0N":F(24)=1 

IF F(27)=l AND F(24)=l THEN H$="NHI2Z-VACUUHED THE GHOSTS UP!":F(27)=0 

RETURN 

IF RN=43 AND (08=27 OR 08=28) THEN G0SU8 1030 
IF RH028 OR 08025 OR F(25)=l OR C(18)=0 THEN RETURN 
F(25)=l;RI(RH)="SEN":Dt(RH)="HUGE OPEN DOOR*!MI="THE KEY TURNS!" 

RETURN 

IF C(08)=l THEN C(08)=0:L(08)sRn;HI="D0NE" 

RETURN 

S=OiLET Hl=“" 

FOR 1=1 TO G 
IF C(I)=1 THEN S=S+1 
NEXT I 

IF S=17 AND C(15)01 AND RH057 THEN PRINT H$(12):PRINT H$(13) 

IF S=17 AND RH=57 THEN PRINT "DOUBLE SCORE FOR REACHING HERE!":S=S#2 
PRINT "YOUR SCORE=")S!lF S>1B THEN PRINT H$(14):ST0P 
INPUT "PRESS RETURN TO CONTINUE" ;Q$ 

RETURN 


^ Cl If you have a BBC, you 
^ may need a comma here 

DIH C(W),L(6),F(W) insteadofasemi-colon. 

DATA 46,38,35,50,13,18,28,42,10,25,26,4,2,7,47,60,43,32 ' 

FOR 1=1 TO B 
READ L(I) 

NEKT 1 

DATA HELP , CARRYING? , GO , N , S , N , E , U , D , GET , TAKE , OPEN , EX AHINE , READ , SAY 
DAT A D I G , SH I NG , CL I NB , L I GHT , UNL I GHT , SPR AY , USE , UNLOCK , LE A VE , SCORE 
FOR 1=1 TO V 
READ V$m 
NEXT I 



DIN R$(63),D$(63),0$(N),V$(V) 
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Notice that data items 
are separated by 
commas. If you change 
the data, m^e sure you 
don’t try to include 
commas in it or you will 
confuse the computer. 


1710 DATA SE,HE,ME,SHE,HE,HE,SWE,H5 
1720 DATA NS,SE,NE,NH,SE,H,NE,NSN 
1730 DATA NS,NS,SE,WE,NHUD,SE,HSUD,NS 
1740 DATA N,NS,NSE,HE,HE,NSN,NS,NS 
1750 DATA S,NSE,NSH,S,NSUD,N,N,NS 
1760 DATA NE,NH,NE,M,NSE,ME,H,NS 
1770 DATA SE,NSU,E,NE,NN,S,SH,NW 
1780 DATA NE,NUE,HE,NE,ME,NME,NHE,H 
1790 FOR 1=0 TO 63 
1800 READ R$(I) 

1810 NEXT I 

1820 DATA DARK CORNER, 0VER8R0NN GARDEN, BY LARGE N00DPILE,YARD BY RUBBISH 
1825 DATA NEEDPATCH,F0REST, THICK FOREST, BLASTED TREE 
1840 DATA CORNER OF HOUSE, ENTRANCE TO KITCHEN, KITCHEN & GRINY COOKER 
1845 DATA SCULLERY D00R,R00N HITH INCHES OF DUST, REAR TURRET ROON 
1860 DATA CLEARING BY HOUSE, PATH, SIDE OF H0USE,BACK OF HALLNAY,DARK ALCOVE 
1865 DATA SHALL DARK R00H,B0TT0H OF SPIRAL STAIRCASE,NIDE PASSAGE 
1880 DATA SLIPPERY STEPS, CLIFFTOP, NEAR CRUHBLING NALL,GL00HY PASSAGE 
1885 DATA POOL OF LIGHT, IHPRESSIVE VAULTED HALLNAY,HALL BY THICK MOODEN DOOR 
1900 DATA TROPHY ROOH, CELLAR NITH BARRED NINDON, CLIFF PATH 
1905 DATA CUPBOARD HITH HANGING COAT, FRONT HALL, SITTING ROON, SECRET ROON 
1920 DATA STEEP HARBLE STAIRS, DINING ROOH, DEEP CELLAR HITH COFFIN, CLIFF PATH 
1925 DATA CLOSET, FRONT LOBBY, LIBRARY OF EVIL BOOKS 
1940 DATA STUDY HITH DESK & HOLE IN HALL,COBHEBBY ROON, VERY COLD CHANGER 
1945 DATA SPOOKY ROOH, CLIFF PATH BY HARSH, RUBBLE STREHN VERANDAH, FRONT PORCH 
1960 DATA FRONT TONER, SLOPING CORRIDOR, UPPER GALLERY, HARSH BY HALL, HARSH 
1965 DATA SOGGY PATH, BY THISTED RAILING, PATH THROUGH IRON GATE, BY RAILINGS 
1970 DATA BENEATH FRONT TONER, DEBRIS FROH CRUHBLING FACADE, FALLEN BRICKHORK^--^ 
1975 DATA ROTTING STONE ARCH, CRUHBLING CLIFFTOP 
1980 FOR 1=0 TO 63 
1990 READ D$(I) 

2000 NEXT I 

2010 DATA PAINTING,RING,HAGIC SPELLS, GOBLET, SCROLL, COINS, STATUE, CANDLESTI^ 

2012 DATA HATCHES , VACUUH , BATTERIES , SHOVEL , AXE , ROPE , BOAT , AEROSOL , CANDLE , KEY 
2014 DATA NORTH, SOUTH, NEST, EAST, UP, DOHN 
2016 DATA DOOR, BATS, GHOSTS, DRAHER, DESK, COAT, RUBBISH 
2018 DATA COFFIN, BOOKS,XZANFAR,HALL,SPELLS 
2060 FOR 1=1 TO H 
2070 READ 0$(I)iNEXT I 

2090 F(18)=l!F(17)=liF(2)=l:F(26)=l;F(28)=l:F(23)=l;LL=60:RH=57:HI="0K' 

2095 DIH HI (14) 

2100 H$(1)=-BATS ATTACKING! ■!H$(2)=’A HAGICAL BARRIER TO THE NEST* 

2105 HI(3)='Y0U CAN'T CARRY A B0AT!":HI(4)=-Y0U HAVE THE ' 

2110 HI(5)=“USE THIS HORD HITH CARE - 'XZANFAR'*:HI(6)»"*HAGIC OCCURS*" 

2115 HI(7)="DUG THE BARS 0UT":H$(8)="STUDY HITH SECRET ROOH" 

2120 HI(9)="Y0U BROKE THE THIN HALL* 

2125 H$I10)="Y0U SEE THICK FOREST AND CLIFF TO THE SOUTH* 

2130 HI(11)=*IT CASTS A FLICKERING LIGHT*:H$(12)="Y0U HAVE EVERYTHING" 

2135 HI(13)=*RETURN TO THE BATE FOR FINAL SCORE" 

2140 H$(14)=*HELL DONE - YOU FINISHED THE GAHE": RETURN 



Make sure you type the 
data in the correct order 
or strange things will 
happen when you try to 
play the game. 
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SPECTRUM VERSION 

Changes for the Spectrum 


Sinclair computers use a version of BASIC 
which differs quite a lot from the BASIC on 
other popular computers, so you will have 
to make quite a lot of changes to make it 
work. These changes make the program 
slightly too long to fit into a 16K Spectrum. 
You could, however, try adapting the 
program to fit by cutting out some of the 
verbs, for example, and shortening the 
messages. 

120 PRINT D$(RH+1) 

140 FOR 1=1 TO LEN(R$(RM+D) 

150 PRINT RKRH+IMI);’,"; 

240 LET X$=":LET NI="!LET VB=0:LET 08=0 


Use the lines listed below to replace lines 
in the main program and also change the 
main program as follows: 

1. The Spectrum needs LET every time you 
assign a value to a variable e.g. LET V=25. 
This affects many lines, including all the 
ones containing IF . . . THEN, so be careful. 

2. All the string data in lines 1660, 1665, 
1710-1780, 1820-1965 and 2010-2018 must be 
put in quotes, like this: 

1820DATA“DARK CORNER”, 
“OVERGROWN GARDEN”, etc. 

3. In lines 1790 and 1980, change the loop to 
read FOR 1= 1 TO 64. (The Spectrum won’t 
allow you to use the box labelled zero in an 
array.) 


250 FOR 1=1 TO LEN(B$)-1 
2i0 IF Q$(II=- • AND X$='“ THEN LET X$=8$( TO I-l) 

270 IF Q$(l+1)<>* * AND Xl<>““ THEN LET Nl=8$ (I+l TO );LET I=LEN(QI)-1 


290 IF H»=" THEN LET X$=Q$ 

295 IF LEN(X$)<9 THEN LET XI=XI+* ":60T0 295 
310 IF X$=VIII) THEN LET VB=I 
325 IF LEN(H$X13 THEN LET H$=NI+- "rBOTO 325 
405 IF 0B=0 THEN GOTO 420 

420 IF F(26)=l AND RH=13 AND RND>.7 AND VB021 THEN LET H$=H$(1):G0T0 90 
430 IF RH=44 AND RND>.5 AND F(24)01 THEN LET F(27)=l 
440 IF F(20)=l THEN LET LL=LL-1 
450 IF LL<1 THEN LET F (201=0 

460 BOSUB 500t(VB=l)+570#(VB=2)+640»(VB>2 AND VB<10)+980»(VB=10 OR VB=11)+ 
1030#(VB=12)+1070»(VB=13)+1140t(VB=14)+1180*(VB=15) 

465 BOSUB 1220»(VB=16)+1250*(VB=17)+1300t(VB=18)M340»(VB=19)+1380»(VB=20)+1400* 
(VB=21)+1430»(VB=22)+1460*(VB=23)+1490»(VB=24)+1510»(VB =25)+1590*(VB=26) 

810 IF (RH=26 AND F(20)=0) AND (D=l DR D=4) THEN LET H$="Y0U NEED A LIGHT": RETURN 
840 IF (RH>26 AND RH<30) AND F (201=0 THEN LET HI="T00 DARK TO HOVE": RETURN 
850 LET F(35)=0:LET RL=LEN(RI(RH+D) 

870 LET U$=Rt(RH+l,I) 

960 IF RH=41 AND F(23)=l THEN LET RI(50I="SH":LET HI="THE DOOR SLAHS SHUT!":LET F(23)=0 
980 IF 0B>G OR 0B=0 THEN LET HI="I CAN'T GET "+N$: RETURN 

1190 IF C(3)=l AND 0B=34 THEN LET H$=Hf(6):IF RH045 THEN LET RH=INT(RND»64> 

1230 IF C(12)=l AND RH=30 THEN LET HI=H$(7):LET D$(RH+1)="H0LE IN NALL":LET R$(RH+1)="NSE" 
1280 IF 0B=13 AND C(13)=l AND RH=43 THEN LET RI(RH+1)="NN":LET D$(RH+1)=HI(8):LET H$=H$(9) 

1360 IF 0B=17 AND C(17)=l AND C(9)=l AND C(8I=1 THEN LET H$=H$(11):LET F(20)=l 

1380 IF F(20)=l THEN LET F(20)=0:LET H$="EXT1NGUISHED" 

1475 LET F(25)=1:LET R$(RH+1)="SEH":LET D$(RH+1)="HUGE OPEN D00R":LET HI="THE KEY TURNS!" 
1600 DIH R$(64,4):DIH DI(64,31):DIH 0$(N,13):DIH V$(V,9) 

1610 DIH C(N):DIH L(G):DIH F(N) 

2095 DIH H$(14,43) 


Remember that if you type in the data 
in capital letters, you must play the 
game using capitals - the computer 
does not recognize that “GO WEST” 
and “go west” are the same thing. It is 
best to keep the caps lock on all the 
time. 


38 


ZX 81 version 


The program listing on the next six pages 
is a special version ol Haunted House for 
the ZX8 1. It sticks as closely as possible to 
the structure of the main program, so you 
can follow the explanations of the 
program given throughout this part of the 
book. The main differences are that the 



Notice that the locations are 
numbered starting with 1, as 
the ZX8 1 will not allow you to 
use the zero box in an array. 


ZX81 masterplan 


ZX8 1 will accept only one statement on 
each line and it does not have the 
commands READ . . . DATA. The program 
has been rewritten to take account of 
these and other differences in the BASIC 
which you will see pointed out on the 
listing. 

These changes take up quite a lot of 
memory space. In order to make the game 
fit, the nuinber of locations has 
been cut from 64 to 36 and other data 
changed slightly to fit with this. The ZX8 1 
version of the master plan is shown below. 
You can find out how the data is put into the 
computer’s memory over the page. 


1 

ENTRANCE 
TO KITCHEN 

2 

KITCHEN 

3 

SCULLERY 

4 

DUSTY 

ROOM 

REAR 

TURRET 

6 

CLOSET 

WITH 

COAT _ 

7 

BACK OF 
HALLWAY 

^ & 

DARK 

ALCOVE 

9 

SMALL 

ROOM 

WITH 

RUBBISH 

10 

SPIRAL 

STAIRCASE 

11 ^ 

WIDE ^ 

PASSAGE ^ 

12 

SLIPPERY 

STEPS 

13 

HALLW^I 
TO REAR i 

14 CTm. 

POOL OF 
LIGHT 

15 

VAULTED 

HALL 

16 

HALL WITH 
LOCKED DOOR 

17 

TROPHY 

ROOM 

18 

CELLAR 

19 

20 

21 


22 

23 

24 

FRONT 

HALL 

SITTING 

ROOM 

SECRET 

ROOM 

STEEP 

MARBLE 

STAIRS 

DINING 

ROOM 

VAULT 

WITH 

COFFIN 

25 

26 

27 


28 

29 

30 

FRONT 

LOBBY 

LIBRARY ^ 


i STUDY 

COBWEBBY 

ROOM 

COLD 

CHAMBER 

SPOOKY 

ROOM 








31 

32 

33 


34 

35 

36 

FRONT 

PORCH 

FRONT 

TOWER ^ 

SLOPING 

CORRIDOR 

UPPER 

GALLERY 

BOAT 

HOUSE 

SOGGY 
^ PATH 

! 

1 ^ 
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INPUT & INPUT ANALYSIS DESCRIPTION & FEEDBACK 
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ZX81 LISTING 

How to use the program 

If you look through this hsting, you will 
notice that the data for the game is not 
incorporated in the program. The program 
works by asking you to type in the data and 
then saving the whole program, including 
the data, on tape. You only need do this 
once - next time you want to play the game, 
all you have to do is load the tape. 

Follow these instructions to use the 
program: 

1. Type in the program (very carefully). 

2. Type RUN 2440. 


10 GOSUB 2200 
20 CLS 

30 PRINT 'HAUNTED HOUSE ADVENTURE' 

40 PRINT ' • 

50 PRINT 'YOUR LOCATION:' 

60 PRINT D»(RN) 

70 PRINT 'EXITS:' 

80 FOR 1=1 TO LEN(R$'RM)) 

90 PRINT R$(RN)(I TO I);",'j 
100 NEXT I 
no PRINT 


3. Now type in the data in the foUowing 
order (see page 45 for lists of data): 

a) location descriptions 

b) routes 

c) object words 

d) verbs 

The program stops after each section so 
you can re-enter any data which you put 
in incorrectly. If, for instance, you want to 
put the verb data in again, type GOTO 
2720. If you want to carry on to the next 
input section, type CONT, followed by 
NEWLINE. 

4. Now SAVE the program on tape. This will 
save all the data as well. 

5. To start the game, type GOTO 10. DO 
NOT TYPE RUN, as this will destroy all 
the variables. 

6. Now input the starting positions of the 
objects. When you input the last of these 
( 18) the program will give you your 
starting location. 

7. For a new game, repeat steps 5 and 6. 

8. When you load the program from tape, 
start these instructions at step 5. 


/Tl 



120 FOR 1=1 TO G 

130 IF L(1)=RH AND F(1)=0 THEN PRINT 'YOU CAN SEE ';0$(I)!' HERE' 
140 NEXT I 

150 PRINT •====================« 

160 PRINT H$ 
m LET H$='NHAT ?’ 

TbO PRINT "NHAT HILL YOU DO NON' 

190 INPUT 0$ 

200 LET X$=" 

210 LET H$=" 

220 LET VB=0 
230 LET 0B=0 
240 FOR 1=1 TO LEN(9«)-1 

250 IF 9$(I TO 1)=" " AND X$=" THEN LET X$=Q$(T0 1-1) 

260 IF Qt(I+l TO 1+1)0" ' AND X»<>" THEN LET H*=Q$(I+1 TO) 

270 IF H$<>" THEN LET I=LEN(Q$)-1 
280 NEXT I 

290 IF H$=" THEN LET X$=0$ 

300 IF LEN(Xt)>LEN(V$(D) OR X$=" THEN SOTO 420 
310 LET F=LEN(V$I1))-LEN(X$) 

320 LET X$=Xi+F$(T0 F) 

330 FOR 1=1 TO V 
340 IF X»=Vt(l) THEN LET VB=1 
350 NEXT I 

360 IF H$=" OR LEN(H$)>LEN(0$(D) THEN GOTO 430 


The ZX8 1 needs LET when a 
value is cissigned to a variable. 




This section looks a bit 
different to the main procpram 
because the ZX8 1 does not use 
MIDI, LEFTS and RIGHTS to 
take a section of a string. 


BRANCH TO ERROR MESSAGES 

VERBS 3-9 VERB 2 VERB 1 subroutines override conditions 


y 

/4 


Notice that some of the 
program lines are longer than 
the printed lines on the page. 
Make sure you don’t press 
NEWLINE before the end of 
the program line. 


370 LET F=LEN(0i(l))-LEN!«t) 

380 LET «$=«+F$(T0 F) 

390 FOR 1=1 TO M 
400 IF H$=0»(I) THEN LET 0B=I 
410 NEH I 

420 IF N$>" AND 0B=0 THEN LET N$=‘THATS SILLY’ 

430 IF VB=0 THEN LET VB=V+1 
440 IF W$=” THEN LET H$=’I NEED TNO NORDS’ 

450 IF VB)V AND 0B>0 THEN LET N$=*Y0U CANT ’+04 
4i0 IF VB>V AND 0B=O THEN LET H$=’Y0U DONT HAKE SENSE’ 

470 IF 0B=0 OR 0B>B THEN 60T0 490 

480 IF VB<V AND 0B>0 AND C(0B)=0 THEN LET H»=’Y0U DONT HAVE ’+M$ 

490 IF F(26)=0 OR RH05 OR INT!RND*3)=2 OR VB=21 THEN GOTO 520 
500 LET H$=’BATS ATTACKING’ 

510 GOTO 20 

520 IF RH=28 AND INT(RND»2)=1 AND F(24)=0 THEN LET F(27)=l 
530 IF F (201=1 THEN LET LL=LL-1 
540 IF LL<1 THEN LET F(20)=0 
550 BOSUB 590»(VB=1)+660»(VB=2)+730»(VB>2 AND VB<10)+lli0»(VB=10 OR VB=11)+1270*(VB=12) 
+1350KVB=13)+1440*(VB=14)+I480«(VB=15) +1540* !VB=li)+1560*(VB=17)tl640»(V B=18)+1700t(VB=19) 
+1760»(VB=20)+1800»(VB=21)+l850t(VB=22)+1920«(VB=23)+1990»(VB=24)+2040t(VB=25)+2190»(VB=2i) 
5i0 IF LL=10 THEN LET H$=’Y0UR CANDLE IS NANING’ 

570 IF LL=1 THEN LET N$=’Y0UR CANDLE IS OUT’ , n 

580 GOTO 20 



^590 PRINT ’NORDS I KNOW’ 

600 FOR 1=1 TO V 
610 PRINT V$(Ili’,’; 

620 NEH 1 
630 LET Nt=” 

640 GOSUB 2160 
J50 RETURN 

^60 PRINT ’YOU ARE CARRYING:’ 

670 FOR 1=1 TO G 
680 IF C(I)=1 THEN PRINT 0$(I);’,’; 

690 NEXT I 
700 LET H$=” 

710 GOSUB 2160 
J20 RETURN 
^30 LET D=0 

740 IF 0B=0 THEN LET D=VB-3 
750 IF 0B>18 AND 0B<25 THEN LET D=0B-18 
760 IF RH=10 AND D=5 THEN LET D=1 

770 IF RN=10 AND D=6 THEN LET D=3 

780 IF RH=12 AND D=6 THEN LET D=2 

790 IF RH=12 AND D=5 THEN LET D=3 

800 IF R«=22 AND D=6 THEN LET D=1 

810 IF RH=22 AND D=5 THEN LET D=2 

820 IF RH032 OR D03 THEN GOTO 850 
830 LET N$=’ITS A LONG DROP’ 


This line replaces the ON 
GOSUB line, which the ZX8 1 
can’t do. It works like one long 
calculation, using the value of 
VB. The computer looks at 
each of the brackets containing 
“VB =’’ and puts a 1 if the 
bracket is true and a zero if it 
isn’t. Try working through the 

V calculation using a particular 
value of VB to see how it works. 




This replaces the tree section 
in the main program. Check 
the plan if you want to see what 
location 32 is. 


41 


VERB 12 VERBS 10& 11 
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ZX81 LISTING 


840 RETURN 

850 IF F(27)=0 OR RH034 THEN SOTO 880 
850 LET H$='GH0STS HILL NOT LET YOU HOVE' 

870 RETURN 

880 IF RH029 OR C(1)=0 OR F(34)=l THEN GOTO 910 
890 LET H$='HAGICAL BARRIER TO THE NEST* 

900 RETURN 

910 IF RH<14 OR RH>17 OR F(20)=l THEN GOTO 950 
920 IF RH=14 AND DOl AND D04 THEN SOTO 950 
930 LET H$=*TOO DARK TO HOVE' 

940 RETURN 

950 IF Cfl5)=0 OR RH036 THEN GOTO 980 
960 LET Ht='THE BOAT IS TOO HEAVY' 

970 RETURN 

980 LET RL=LEN(R$(RH)) 

990 LET OH=RH 
1000 FOR 1=1 TO RL 
1010 LET U$=R$(RH)(I TO I) 

1020 IF Ui='N' AND D=1 THEN LET 0H=0H-6 

1030 IF U$='S' AND D=2 THEN LET 0H=0H+6 

1040 IF U$='H' AND D=3 THEN LET 0H=0H-1 

1050 IF U$='E' AND D=4 THEN LET 0H=0H+1 

1060 NEXT I 
1070 LET H$='OK' 

1080 IF RH=OH THEN LET H*='CANT GO THAT HAY' 

1090 LET RH=OH 

1100 IF D<1 THEN LET H$='SO HHERE ?' 

1110 IF RH025 OR F(23)=0 THEN GOTO 1150 
1120 LET R$I31)=" 

1130 LET Ht='THE DOOR SLANG SHUT BEHIND YOU' 

1140 LET F(23)=0 
y 1150 RETURN 

( 1160 IF 0B>0 AND OB<=G THEN GOTO 1190 
1170 LET H$='YOU CANT GET '+Ht 
1180 RETURN 

1190 IF L(OB)ORH THEN LET H$='1TS NOT HERE' 

1200 IF F(0B)=1 THEN LET H$='HHAT '+H$+' ?' 

1210 IF C(0B)=1 THEN LET H*='YOU ALREADY HAVE IT" 
1220 IF LIOBIORH OR F(0B)=1 THEN GOTO 1260 
1230 LET C(0B)=1 
1240 LET H$='Y0U HAVE THE "+H$ 

1250 LET L(0B)=37 
V 1260 RETURN 

[ 1270 IF RH027 OR (0BO28 AND 0BO29) THEN GOTO 1300 
1280 LET H$='DRAHER OPEN' 

1290 LET F(17)=0 

1300 IF RH=16 AND 0B=25 THEN LET H»=“1T IS LOCKED' 
1310 IF RH024 OR 0BO32 THEN GOTO 1340 
1320 LET H$='CREEPY' 


Check each line before you 
press NEWLINE. It is much 
easier to try and spot your 
mistakes as you type than 
having to search through the 
whole listing to find them. 



See pages 24-25 for 
more about how the 
subroutines work. 



Imagine your adventure is 
going to be sold in a famous 
chain of shops and design 
and write an atmospheric 
insert for its cassette box. 



VERB 20 VERB 19 VERBIS VERB 17 16 VERB 15 VERB 14 VERB 13 


'Vl47( 

r m 


1760 


I / 

la 


Check the two versions of 
Haunted House against each 
other to see where the 
programs differ. 


LET F(2)=0 
RETURN 

IF 0BO30 THEN GOTO 1380 
LET H»=‘S0NETHING HERE* 

LET F(18)=0 

IF 08=28 OR 08=29 THEN LET H$=*THERE IS A DRANER* 

IF 08=33 OR 08=5 THEN G0SU8 1440 
IF RN=27 AND 08=35 THEN LET H$="S0HETHINB 8EY0ND* 

IF 08=32 THEN G0SU8 1270 

IF RN=9 AND 08=31 THEN LET H$=*THATS DISGUSTING" 

RETURN 

IF RN=26 AND 08=33 THEN LET N$="THEY ARE DEHONIC NORKS* 

IF (08=3 OR 08=36) AND C(3)=I AND F(34)=0 THEN LET H$=*USE 
WORD HITH CARE - XZANFAR* 

IF C(5)=l AND 08=5 THEN LET M$=*AN ALIEN TONGUE" 

RETURN ^ 

LET N$=*0K •+«$ 

IF C(3)=0 OR 08034 THEN GOTO 1520 
LET Ht=*NAGlC OCCURS* 

IF RH029 THEN LET RH=INT(RND»36)+I 
IF C(3)=l AND 08=34 AND RH=29 THEN LET F(34)=l 
RETURN 

IF C(12)=l THEN LET N$=*Y0U HAVE HADE A HOLE* 

RETURN 

IF C( 14)01 AND RH=11 THEN LET H$=*THIS IS NO TIHE FOR GAHES 
IF 08=14 AND C(14)=l THEN LET H$=*YOU SNUNG IT* 

IF 08=13 AND C(13)=l THEN LET H$=*NHOOSH* 

IF 08013 OR C(13)=0 OR RH027 THEN GOTO 1630 
LET R$(RH)=*HN" 

LET D*(RH)="STUDY WITH SECRET RQOH" 

LET H$=*YOU BROKE THROUGH* 

RETURN 

IF RH032 OR C(14)01 OR 08014 THEN GOTO 1680 
LET H$=*GOING DOWN.* 

LET RH=RH-1 
GOTO 1690 

LET ni=* WHERE TO ?* 

RETURN 

IF 08=17 AND C(17)=l AND C(8)=0 THEN LET H$=*IT WILL BURN YOUR HANDS 
IF 08=17 AND C(17)=l AND C(9)=0 THEN LET H$=*WHAT WITH ?* 

IF 08017 OR C(17)=0 OR C(9)=0 OR C(8)=0 THEN GOTO 1750 
LET H$=*IT CASTS A FLICKERING LIGHT* 

LET F(20)=l 

RETURN 

IF F(20)=0 THEN GOTO 1790 | Perhapsyoucan 

LET H$=*EXTINGU1SHED* 

LET F(20)=0 
RETURN 

IF 08=26 AND C(16)=l THEN LET H$=*HISSSS* 



Don’t forget, you can add 
extra verbs without adding 
extra subroutines. You 
could add LOOK for 
example and make it use 
the EXAMINE subroutine. 



think of a better verb 
than “unlight”. 
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ZX81 LISTING 


1810 IF 0BO26 OR C(16)01 OR F(26)=0 THEN 60T0 1840 
1820 LET H$=‘PFFT - GOT THEN’ 

1830 LET F(26)=0 
^840 RETURN 

/lB50 IF OBOlO OR C(10)=0 OR C(11)=0 THEN GOTO 1910 
1860 LET F(24)=l 

1870 LET N$=‘SNITCHED ON’ '' 

1880 IF F(27)=0 OR F(24)=0 THEN GOTO 1910 
1890 LET N$=’YOU VACUUMED THEN UP’ 

1900 LET F (271=0 

> 1910 RETURN 

1920 IF RN=27 AND (0B=27 OR 0B=28) THEN GOSUB 1270 
1930 IF RN016 OR 0BO25 OR F(25)=l OR C(18)=0 THEN GOTO 1980 
1940 LET F(25)=l 

1950 LET N$=’THE KEY TURNS - CLUNK’ 

1960 LET R$(RN)=’SEN’ 

1970 LET D$(RH)=’HUGE OPEN DOOR’ 

M980 RETURN 

! m IF C (081=0 THEN GOTO 2030 
2000 LET C(0B1=0 
2010 LET N$=’DONE’ 

2020 LET L(0B1=RH 

> 2030 RETURN 
2040 LET S=0 
2050 FOR 1=1 TO G 

2060 IF C( 11=1 THEN LET S=S+1 \ 

2070 NEXT I 

2080 IF S=17 AND C(151=0 AND RH031 THEN PRINT ’YOU HAVE EVERYTHING 
RETURN TO PORCH FOR FINAL SCORE’ 

2090 IF S017 OR RN031 THEN SOTO 2120 
2100 PRINT ’DOUBLE SCORE’ 

2110 LET S=S*2 
2120 PRINT ’YOUR SCORE ’;S 
2130 IF S<18 THEN GOTO 2160 
2140 PRINT ’NELL DONE - YOU HAVE FINISHED’ 

2150 STOP 

2160 PRINT ’PRESS NEH LINE TO CONTINUE* 

2170 INPUT 8$ 


Lines 2300 to 2350 set the flags 
for the invisible objects, so you 
do not need to type in flag data 
separately. 



When you DIMension a string 
array on the ZX8 1, you need to 
tell the computer the length of 
the longest item you are going 
to store in it. The computer then 
reserves 36 (or however many) 
spaces of this length. This 
wastes memory space if you 
have one item which is much 
longer than all the others. 



y 


2180 LET M$=’0K’ 

190 RETURN 
2200 FOR 1=1 TO N 
2210 LET F(I1=0 
2220 LET C(11=0 
2230 NEXT I 
2240 LET R$(311=’N’ 

2250 LET R$(271=’N’ 

2260 LET R$(161=’NE’ 
2270 LET D$(271=’STUDY, 



Lines 2240 to 2380 reset the 
variables which have been 
changed druring a game, so that 
you can play a new game. 


DESK AND NALL’ 


2280 LET D$(16)=’HALL HITH HUGE NOODEN DOOR" 


DATA INPUT SECTION 




13 SPACES 

/. 


2290 LET H$=‘0K‘ 

2300 LET F(18)=l 
2310 LET F(17)=l 
2320 LET F(27)=l 
2330 LET F(2)=l 
2340 LET F(26)=l 
2350 LET F(23)=l 
2360 LET LL=60 
2370 LET RH=31 
2380 LET F$=* 

2390 FOR 1=1 TO 8 
2400 PRINT I 
2410 INPUT LID 
2420 NEXT I 

> 2430 RETURN 
2440 DIN R$(36,4) 

2450 DIN D$(36,30) 

2460 LET V=25 
2470 DIN V$(V,9) 

2480 LET M=36 
2490 DIN 0$(N,13) 

2500 DIN C(U) 

2510 DIN F(N) 

2520 LET 6=18 
2530 DIN L'8) 

2540 PRINT 'DESCRIPTIONS’ 
2550 FOR 1=1 TO 36 
2560 PRINT I 
2570 INPUT D*(I) 

2580 NEXT I 
2590 STOP 

2600 PRINT "ROUTES' 

2610 FOR 1=1 TO 36 
2620 PRINT 1 
2630 INPUT R$(I) 

2640 NEXT I 
2650 STOP 

2660 PRINT 'OBJECTS' 

2670 FOR 1=1 TO N 
2680 PRINT I 
2690 INPUT Ot(I) 

2700 NEXT I 
2710 STOP 
2720 PRINT 'VERBS' 

2730 FOR 1=1 TO V 
2740 PRINT I 
2750 INPUT V$(I) 

2760 NEXT I 
^770 STOP 


X 


X 


The data : Load the data in this order. (See page 40.) 



X 


ENTRANCE TO KITCHEN, KITCHEN WITH GRIMY 
COOKER, SCULLERY, DUSTY ROOM, REAR TURRET 
ROOM, CLOSET WITH COAT, BACK HALLWAY, DARK 
ALCOVE, SMALL ROOM WITH RUBBISH, SPIRAL 
STAIRCASE, WIDE PASSAGE, SLIPPERY STEPS, 
HALLWAY TO REAR, POOL OF LIGHT, VAULTED 
HALL, HALL WITH HUGE WOODEN DOOR, TROPHY 
ROOM, CELLAR ROOM, FRONT HALL, SITTING 
ROOM, SECRET ROOM, STEEP MARBLE STAIRS, 
DINING ROOM, VAULT WITH COFFIN, FRONT LOBBY, 
LIBRARY OF EVIL BOOKS, STUDY WITH DESK. HOLE 
IN WALL, COBWEBBY ROOM, VERY COLD CHAMBER, 
SPOOKY ROOM, FRONT PORCH, TOP OF FRONT 
TOWER. SLOPING CORRIDOR, UPPER GALLERY, 

BOAT HOUSE. SOGGY PATH 




ROUTES 

— " 

SE,WE,W,SE,WE,W, 

NS, SE, WE, NWUD, SE. SWUD, 
NS, NSE, WE, WE, NSW, NS, 
NSE,NSW,S,NSUD, N,N, 
N,NE,W,NSE,WE,SW, 
N,WE,WE,NW,E,NW 


The commas show ’ 
where you should press 
NEWLINE between data 
items. DON’T TYPE THE 
COMMAS. 


If 

I 






OBJECTS 



X 


PAINTING, RING, MAGIC SPELLS. GOBLET, SCROLL, 
COINS, STATUE, CANDLESTICK, MATCHES, 
VACUUM, BATTERIES, SHOVEL, AXE, ROPE, BOAT, 
AEROSOL, CANDLE, KEY, NORTH, SOUTH, WEST, 
EAST. UP, DOWN, DOOR, BATS, GHOSTS. DRAWER, 
DESK, COAT, RUBBISH, COFFIN, BOOKS, XZANFAR, 
WALL, SPELLS 




VERBS 


HELP. CARRYING?, GO, N, S, W, E, U, D, 

GET. TAKE, OPEN, EXAMINE, READ, SAY, 

DIG, SWING, CLIMB. LIGHT, UNLIGHT, SPRAY, 
USE, UNLOCK, LEAVE, SCORE 


STARTING LOCATIONS FOR OBJECTS 




(You must type in this set of data each time you run 
the program.) 

30,24,21,32,5,8, 

16,26, 2, 13, 14,36, 

18,11,35,3, 27,6 



Extra tips and hints 

I 1. Use integer variables 

On some computers you can put a % sign 
after number variable names to show that 
you only waint to put integers or whole 
numbers in them (numbers without 
anything to the right of the decimal point 
that is). So variable V becomes V% and so 
on. You can do this on the BBC, TRS-80, 
Dragon, TRS-Color and Oric. It is useful to 
do this because it saves memory space and 
increases the speed by as much as 50% . 
The speed is particularly noticeable when 
the computer is executing long loops. 


I 2. Think about screen presentation 

If you have enough spare memory, you 
could improve the way the game looks on 
the screen. You could add a graphics 
routine for the opening title for instance and 
make the text flash on and off at particular 
points in the game, such as when the candle 
flickers or the ghosts appear. The text need 
not be printed at the edge of the screen, nor 
need it all be the same colour. You could 
make use of coloured borders and 
backgrounds too. 


3. Watch your spelling 

If you are not quite sure how to spell a word 
you want to use in the game, check it in a 
dictionary. Your computer doesn’t know 
how to spell and will store whatever you tell 
it in its memory. This could be very 
frustrating for the player who is using the 
correct version and keeps getting error 
messages because the computer doesn’t 
recognize the word. 


[ 4. Spread the action 

Some adventure games are a bit boring to 
play because everything happens in the 
same place. Try to make sure there are 
46 interesting things all through the game. 


5. Use REM statements 


When you are writing a program as long 
and complicated as an adventure, it is a 
very good idea to put REM statements in 
front of each section. You are quite likely to 
get confused as to which section is which if 
you don’t. When you have finished the 
program, though, take the REMs out - they 
take up memory space, slow the program 
up and allow unscrupulous players to cheat. 


6. Use helpful variable names 

Try to name your variables so that it is easy 
to remember what each one is e.g. OB for 
objects, MK for mistakes, and so on. If you 
have plenty of memory space and your 
computer will aUow you, it is a good idea to 
use long variable names to help you 
remember what each variable is, e.g. 
instead of V use VERB. Make a list of your 
variables and what they are anyway, so you 
don’t nux them up while you are writing the 
program. 


I 7. Keep it simple 

Don’t be too ambitious with your first 
games. A simple, well-thought-out game 
will be more fun to play than a confused, 
complicated one. Not everyone wants to 
play a game which goes on for days. 


8. Keep it friendly [ 

When you have written your game, look at 
the conunents to make sure they are not 
ambiguous or misleading. Instead of “TOO 
DARK’’, for instance, you could say “YOU 
NEED A LIGHT TO GO HERE’’. Remember, 
something that is obvious to you will not be 
at all obvious to a player. Make some of 
your comments funny too as this will help 
the player feel the computer is reaUy talking 
to him. 





Answers to puzzles 


Detective game puzzle (page 13) 

Here are some suggested solutions for the problems in the detective game. See how 
they compare with the solutions you thought of. 

1. You will only see the hair if you instruct computer to examine coat. You cannot take 
hair unless you have a clean envelope to put it in. 

2. You need a key to open the drawer, a magnifying glass to see the thread and a second 
clean envelope to put it in. 

3. You need plaster and a container of water to make a plaster cast of the footprint. 

4. You need talcum powder to show up prints and sticky tape to hft print off surface to 
take away. 

5. You need a portable blood analysis kit (described in game as a box containing bottles 
and other scientific e(5uipment). 

6. You need a handkerchief to pick up the stick and a polythene bag to carry it in. 

Adventure brain teasers (page 15) 

Remember there are no “correct” answers to these puzzles. Here are some suggested 
solutions. 

1 . Lift the carpet and find a trap door. 

2. Use the handkerchief as a mask (assuming drowsiness is caused by a gas in the 
room), look inside rucksack and find a flask. Open the flasl and find black coffee. 

Drink coffee. 

3. Read scroll (which is a proclamation to free the slaves). 

4. Throw the dessert (which happens to be custard pie) in the arch- villain’s face. Grab 
the remote control and escape. 

Puzzle (page 28) 

Here is how you can change the program to limit the number of objects that can be 
carried at one time. 

You need two new variables, here they are called CO (which stands for “carried 
objects”) and CL (which stands for “carrying limit”). Add these to the end of line 70 like 
this: 

70.. .:CO=0:CL=8 

You then need to tell the computer to add one to CO in the GET routine when the 
player picks up an object and subtract one from it in the LEAVE routine if he drops an 
object. Do this by adding to the ends of lines 10 10 and 1490 like this: 

1010.. .:CO=CO-fl 

1490.. .:CO=CO-1 

Now add a new line to the GET routine to check if CO e(^uals the limit before 
proceeding with the rest of the routine. 

(CL need not be 8, but it cannot be less or the player would not be able to carry all the 
treasiures to the finish.) 


Going further 

Once you have written an adventure, you could join the BBC Micro Adventiure/Fantasy 
Club. This is a postal club and it provides a library of adventure and fantasy games written 
by members for the use of other members. To find out more, write to: 

BBC Micro Adventure Club, 29 Blackthome Drive, Larkfield, Kent ME20 6NR, England. 
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HELP, 13,21 
hiding places, 6 
HOME, 33 


IF... THEN, 38 

initialization, 18, 19, 20, 30, 32, 33 
input, 19,21,33 
input analysis, 19, 22 
instructions, player’s, 21 
integer variables, 46 
interactive database, 5 
INVENTORY, 13 
invisible objects, 17, 18 
LEFTS, 40 
LET, 38, 40 

listing, program, 33-37 
Spectrum (Timex 2000) 
version, 38 

ZX81 (Timex 1000) version, 
39-45 

LOAD si±>routine, 30, 31 
locations, 6, 8, 16, 17, 40, 41 
numbering of, 8, 12 
locations array, 16, 17, 20, 39 
loop, 18, 20 
machine code, 5 
magic, use of, 6 
map, of adventure world, 6-7 
masterplan, 8, 11, 12, 14, 15, 16, 
26 

ZX81 version, 39 
memory, amount used up by 
game, 28 

Microsoft-style BASIC, 3, 33 
MID$, 40 

mistakes, correcting, 32 
no match, 22 
number arrays, 17 
numbering of locations, 8 
objects, 10, 12 
object word array, 17, 18 
object words, 40 
one-way routes, 8, 9 
one-word commands, 2 1, 23, 26 
ON . . . GOSUB, 24, 25, 30, 32, 33, 
41 

on range error, 23 
Oric,3,29,33,34,37,46 
out of data, 32 

override conditions, 19, 24, 32 
penalties, 30 
planning, 5-15 
point of the game, 6 
problems for player, 10 
program 

changing the, 28-32 
structure, 19 
writing the, 19-27 
props, 10, 12 
QUIT, 31 

READ... DATA. 18,39 
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SCORE, 3 

subroutine, 30, 36, 44 
scoring, 10, 30 
screen presentation, 46 
Sinclair (Timex) computers, 3, 
18,21,33,38,40 
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